-
IT café
Ajánlott ingyenes Windows programok
Androidos kérdéssel irány az Android alkalmazások topik!
Új hozzászólás Aktív témák
-
lúzer
veterán
válasz Kazimír #4269 üzenetére
Itt az 1.05 verzió, békénhagyja a kiterjesztést:
Dim Input, ujnev, fso, f, f1, fc, s,vv
Input = InputBox("meghajtó és mappa?.....","Na!")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(Input)
Set fc = f.Files
For Each f1 in fc
vv = vv + 1
ujnev = Right( Left(CreateObject("Scripting.FileSystemObject").GetTempName, 8) , 5)
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile Input & f1.name , Input & ujnev & f1.name
NextMO. RIP. - az utolsó kapcsolja le a villanyt.
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs