1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
|
set fso = createobject("scripting.filesystemobject")
path = "c:\windows\desktop\Bilder vom " & date
choice = msgbox("Wollen Sie die Bilddateien kopieren?",vbquestion+vbyesno)
if choice = vbno then
wscript.quit
end if
fso.createfolder(path)
fso.copyfile "*.jpg", path & "*.jpg"
msgbox "Alle Bilder erfolgreich kopiert :)",vbinformation
wscript.quit
|