Új hozzászólás Aktív témák

• #4273 lúzer veterán Kazimír #4269

  Új Válasz 2008-02-14 12:51:11 #4273

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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
  Next

Új hozzászólás Aktív témák