andcar72

@ECHO OFF
SETLOCAL 
CLS
::cd /D "C:\script\Speciale_scommesse\"
:sub_insdata
Set /P _DATA=Inserire la data di uscita dello speciale Sport e Style GGMMAA ? || Set _DATA=nessunascelta
If "%_DATA%" == "nessunascelta" goto sub_error 
ECHO.
SET /P _scelta=Data scelta %_DATA%. E' corretta (s/n)? || SET _scelta=N
IF "%_scelta%" NEQ "s" goto sub_insdata

andcar72

@Echo off
SETLOCAL ENABLEDELAYEDEXPANSION
CD /D "%~d0%~p0"
IF "%1" == "" GOTO nopar
IF NOT EXIST "%1" GOTO nodest

SET /P _scelta=Cartella di destinazione "%1\", e' corretto? (S/N)? || SET _scelta=N
IF "%_scelta%" NEQ "s" EXIT /B

SET DEST=%1

andcar72

@Echo off
:: Scritto cosi funziona solo su TCC/LE
SETLOCAL ENABLEDELAYEDEXPANSION
CD /D "%~d0%~p0"
IF "%1" == "" GOTO nopar
IF NOT EXIST "%1" GOTO nodest

SET /P _scelta=Cartella di destinazione "%1\", e' corretto? (S/N)? || SET _scelta=N
IF "%_scelta%" NEQ "s" EXIT /B

andcar72

@echo off
cls
echo WinVer.cmd
 
for /f %%i in ('ver^|find "5.0."') do echo Win NT && set osrecognized=1
for /f %%i in ('ver^|find "5.1."') do echo Win XP && set osrecognized=1
for /f %%i in ('ver^|find "5.2."') do echo Win 2003 && set osrecognized=1
for /f %%i in ('ver^|find "6.0."') do echo Win Vista && set osrecognized=1
for /f %%i in ('ver^|find "6.1."') do echo Win 7 && set osrecognized=1

andcar72

Set oVoice = CreateObject("SAPI.SpVoice")
set oSpFileStream = CreateObject("SAPI.SpFileStream")
oSpFileStream.Open "C:\Windows\startup.wav"
oVoice.SpeakStream oSpFileStream
oSpFileStream.Close