Prejmenovani souboru podle data VBScript
Dobry den,
Jsem v tom lajk tak se mym otazkam nesmejte :cool:
Zacal jsem si ucit VBScript (ucit je asi silne slovo, tak, obcas prectu o tom par radku ;) ), zatim toho moc neumim, ale snazim se tim ulehcit rutinu v praci na PC doma a v praci. Mam par dotazu na ktere me doufam tu poradeji, na kazdy asi pak budu zakladat nove tema.
Mam problem s napsanim skriptu na prejmenovani souboru, presne obrazku. Zatim to resim cmd prikazem FOR v bat souboru (v priloze). Problem je ze pokud narazi na soubor se stejnym datem a casem (divny, ale stava se dost casto), tak prejmenuje jen jeden, ostatni necha. Pak musim presunout prejmenovane fotky do jine slozky, zas prejmenovat soubory v prvni slozce, a tak dokola.
Chtel bych napsat skript aby me to delal automatem, a to treba s pouzitim toho .bat souboru nebo bez. Jak ten skript bude vypadat jeste netusim, ale kdyz zkousim neco jako
set fso = CreateObject("Scripting.FileSystemObject")
set files = fso.GetFolder ("C:\...").Files
for each file in files
WScript.Echo "Soubor vytvoren " & file.DateCreated
next
Tak ten datum me ukaze, takze predpokladam ze by slo aby pro kazdy soubor v cilove slozce jmeno bylo zmeneno na datum+priponu?
Moc dekuji za kazdou radu
Jsem v tom lajk tak se mym otazkam nesmejte :cool:
Zacal jsem si ucit VBScript (ucit je asi silne slovo, tak, obcas prectu o tom par radku ;) ), zatim toho moc neumim, ale snazim se tim ulehcit rutinu v praci na PC doma a v praci. Mam par dotazu na ktere me doufam tu poradeji, na kazdy asi pak budu zakladat nove tema.
Mam problem s napsanim skriptu na prejmenovani souboru, presne obrazku. Zatim to resim cmd prikazem FOR v bat souboru (v priloze). Problem je ze pokud narazi na soubor se stejnym datem a casem (divny, ale stava se dost casto), tak prejmenuje jen jeden, ostatni necha. Pak musim presunout prejmenovane fotky do jine slozky, zas prejmenovat soubory v prvni slozce, a tak dokola.
Chtel bych napsat skript aby me to delal automatem, a to treba s pouzitim toho .bat souboru nebo bez. Jak ten skript bude vypadat jeste netusim, ale kdyz zkousim neco jako
set fso = CreateObject("Scripting.FileSystemObject")
set files = fso.GetFolder ("C:\...").Files
for each file in files
WScript.Echo "Soubor vytvoren " & file.DateCreated
next
Tak ten datum me ukaze, takze predpokladam ze by slo aby pro kazdy soubor v cilove slozce jmeno bylo zmeneno na datum+priponu?
Moc dekuji za kazdou radu
dim fname, ext
set fso = CreateObject("Scripting.FileSystemObject")
set files = fso.GetFolder ("C:\...").Files
for each file in files
WScript.Echo "Soubor vytvoren " & file.DateCreated
fname=left(file.Name,instrrev(fil.Name,".")-1)&replace(file.DateCreated,"-","")
ext=replace(file.name,left(file.Name,instrrev(fil.Name,".")-1,"")
file.Name=fname&ext
next
asi takto, ale urcite je tam nejaka chyba - neviem ako tam dava ten datum, ci s pomlckami alebo ako + ...... treba skusit...
set fso = CreateObject("Scripting.FileSystemObject")
set files = fso.GetFolder ("C:\...").Files
for each file in files
WScript.Echo "Soubor vytvoren " & file.DateCreated
fname=left(file.Name,instrrev(fil.Name,".")-1)&replace(file.DateCreated,"-","")
ext=replace(file.name,left(file.Name,instrrev(fil.Name,".")-1,"")
file.Name=fname&ext
next
asi takto, ale urcite je tam nejaka chyba - neviem ako tam dava ten datum, ci s pomlckami alebo ako + ...... treba skusit...