No nic, na zaklade dostupnych info si zkus prebrat toto:
(spousteni WScript.exe TentoSouborSKoncovkou.vbs) - windows to snad maji asociovane defaultne
'-------------------------------
' pro použití WScript.exe - pro použití s CScript.exe si změn zápisy msgbox na echo - viz komenty
'-------------------------------
Option Explicit 'promenne ktere neuvedu Dim nemohu pouzivat - hlida preklepy v nazvech promennych
Dim fso, wsa 'dam vedet interpretu jake nazvy promennych mam v umyslu pouzivat, vsechny jsou netypove - je to vbs
Dim flPrefix, fl
Dim pocet, i
Dim volneMisto, zabrano
Dim d, aktCesta
Dim msg
flPrefix= "ntzsoubor" 'prvni cast nazvu souboru, tecku a koncovku budu dopocitavat
pocet= 222
msg = ""
zabrano = 0 'budu pocitat kolik mista zabiraji soubory ntzsoubor.aa ....
'trocha interaktivity:
pocet = eval(InputBox("zadej počet", "obvykle zadáváš", "222")) 'dalsi zpusob jak ziskat hodnotu kolik ze to souboru mam pocitat - tentokrat dialog boxem
Set wsa = WScript.arguments 'nastineni dalsiho zpusobu jak ziskat pocet - jako parametr z prikazove radky, ve wsa mam ted vsechny parametry zadane pri spusteni souboru
msgbox "pocet parametru: " & wsa.count 'pokud to ma byt i pro commandline pouzij namisto msgboxu WScript.echo() - count = pocet predanych parametru oddelenych mezerou
if wsa.count > 0 then WScript.echo " prvni je" & wsa.Item(0) end if 'k parametrum muzu pristupovat pres item(0) pro prvni, Item(1) pro druhy atd
'nebo for each arg in wsa 'nebo je chci zpracovat (v tomto pripade jen vypsat) vsechny
'WScript.Echo arg
'next
Set fso = CreateObject("Scripting.FileSystemObject") 'bez tohoto nemuzu pristupovat k souborum
volneMisto = fso.GetFile(WScript.ScriptFullName).Drive.AvailableSpace 'zjistim misto jake mam na disku ze ktereho jsem spustil skript (bere do uvahy i pripadne nastavene diskove quoty)
'ted spocitam nazev pripony - samozrejme jsem to mohl zadat namisto "i" v pripona(i) o kousek dale - ale kdybych chtel pouzit vypocet pripony na vice mistech programu a pripadne jej nekdy zmenit... - dam to do funkce
Function pripona(cislo) 'mala abeceda - (0-675) ,musi platit ze cislice nula="a", pouze dvojznaky
pripona=(chr(int(cislo/26)+97)) & (chr(((cislo/26)-(int(cislo/26)))*26+97))
End Function
'projdu "pocet" souboru - pocet je zadavan lidsky, 0=nula prubehu, 1=1 prubeh (cyklus for 0 to 0 probehne prave jednou)
for i=0 to pocet-1
fl = flPrefix & "." & pripona(i) 'fl obsahuje ted nazev souboru vc. pripony
if fso.FileExists(fl) then 'pokud soubor existuje
zabrano = zabrano + fso.GetFile(fl).size 'vezmi jeho velikost a pricti ji - zabrano obsahuje sumu velikosti jiz otestovanych souboru
else
msg=msg & "E: " & fl & " " 'soubor neexistuje, zaznamenej do msg, kterou na konci vypi3u
end if
next
msgbox "volneMisto: " & volneMisto & " zabrano: " & zabrano & " " & aktCesta & " " & msg 'jen ukecany vystup
if len(msg) > 0 then WScript.Quit(22) 'do msg jsem v prubehu programu zapisoval chybejici soubory, pokud tedy tato promenna neni prazdna tak nejake chyby byly tak skoncim s errorlevel 22
'tohle jsou jen ukazky co delat dal pokud chyby nebyly
' chyby nemame, zacneme treba kopirovat, presouvat nebo vytvaret foldery, pripadne si zavolame zip
'fso.CreateFolder jaky
'fso.CopyFolder odkud, kam, prepisovat?
'fso.CopyFile dtto
'fso.MoveFile dtto
'ted ten zip
'Set shell = WScript.CreateObject("WScript.shell") 'budu volat externi program - musim mit pres co
'dim prg, soub
'prg = "zip.exe"
'soub = """cvf C:\nekam""" 'chci mu predavat jako soucast retezce i uvozovky tak je zdvojim
'shell.Run prg & " " & soub
//edit: doplneno vice komentaru