rozmyslal som nad niecim co by ulahcilo kopirovanie fotiek ( masinka nema monitor ). google pomohol trosku.
Kód: Vybrať všetko
Dim ObjFso
Dim StrSourceLocation
Dim StrDestinationLocation
Dim StrSourceFileName
Dim StrDestinationFileName
StrSourceLocation = "E:\"
StrDestinationLocation = "C:\fotky"
StrSourceFileName = "*.jpg"
StrDestinationFileName = "*.jpg"
'Creating the file system object
Set ObjFso = CreateObject("Scripting.FileSystemObject")
'Copying the file
ObjFso.CopyFile StrSourceLocation & "\" & StrSourceFileName, StrDestinationLocation & "\" & StrDestinationFileName, False
neni problem ho spustit po starte, ale je problem (pre mna) ho zacyklit aby bezal a stal hladal zariadenie E:\ a kopiroval zneho fotky
to zakomentovanie false na konci naznacuje ze ked zisti ze uz rovnaky subor existuje tak ho neprepise ?
ak ano tak to vyriesilo dalsiu moju zahadu
teda uz len to zacyklenie aby sa skript opakoval.
rozmyslal som ze by som vytvoril 2 identicke len s inym menom. teda by 1 pustal 2 a ten 2 pustal 1, ale to by bolo asi divne