Ú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

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

  Új Válasz 2008-02-14 12:42:53 #4272

  Ú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

  Tessék, csináltam egyet:
  ezt egy vbs fájlba, a mappába CSAK az átnevezendő fájlok kerüljenek, és csak mp3 pl. szóval ne variáld a kiterjesztéseket.
  Mikor kéri a mappát, kell a végén a \ karakter tehát pl: F:\001\

  Dim Input, ujnev, fso, f, f1, fc, s,vv, kiterj
  Input = InputBox("meghajtó és mappa?.....","Na!")
  kiterj = InputBox("kiterjesztés mi legyen?.....","Na!")
  
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFolder(Input)
  Set fc = f.Files
  For Each f1 in fc
  vv = vv + 1
  'Wscript.Echo f1.name
  
  ujnev = Right( Left(CreateObject("Scripting.FileSystemObject").GetTempName, 8) , 5) & "." & kiterj
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  objFSO.MoveFile Input & f1.name , Input & ujnev
  Next

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