Root = "C:\test\"
Anfang = "pc"
Endung = ".bmp"
Set fso = CreateObject("Scripting.FileSystemObject")
if not fso.folderexists(Root & "Output") then
fso.createfolder Root & "Output"
end if
Set f = fso.GetFolder(Root)
Set ff = f.Files
for each ItemFile in ff
if left(ItemFile.name, len(Anfang)) = Anfang and right(ItemFile.name, len(Endung)) = Endung then
Nummer = mid(ItemFile.name, len(Anfang)+1, len(ItemFile.name)-(len(Endung)+len(Anfang)))
if Nummer/18 = cint(Nummer/18) then
fso.movefile ItemFile, Root & "Output\" & ItemFile.name
end if
end if
next
Webcam Aufnahmegerät?
criehl 15.02.2007 - 359 Hits -
webcamkonfiguration
pünktchen 15.05.2007 - 381 Hits -
hat jemand den treiber für die webcam von conrad-webcam 350 pix?
heidar 28.05.2007 - 205 Hits - 8 Antworten
Hercules Blog Webcam und ICQ 6
Bongert 28.10.2007 - 261 Hits -
icq/webcam
YiNhAi 07.06.2008 - 231 Hits - 2 Antworten