Re: Hromadne prejmenovani souboru

Tomáš Vymětal <vymetalt@snt.cz>:

> nejde o jednorázovku, takže dávka nepomůže ...

Sorry, nejak jsem si te spletl s puvodnim dotazem ;o))

V kazdym pripade tvuj problem by mohl vyresit tenhle VBS skript.
Zachazej s nim opatrne, na nic se nepta, chyby nijak neresi...

Projde nastaveny adresar a vsechny jeho vnorene adresare a prejmenuje
soubory s kratsim nazvem nez 'PocetNul' tak ze na zacatek doplni nuly
do celkove delky 'PocetNul'.


'------------------------------------------------------------
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("d:\test\1\")
PocetNul = 9

Set colFiles = objFolder.Files
For Each objFile In colFiles
  RenameIt(objFile)
Next

ShowSubFolders(objFolder)

Sub ShowSubFolders(objFolder)
  Set colFolders = objFolder.SubFolders
  For Each objSubFolder In colFolders
    Set colFiles = objSubFolder.Files
    For Each objFile In colFiles
      RenameIt(objFile)
    Next
    ShowSubFolders(objSubFolder)
  Next
End Sub

Sub RenameIt(renFile)
  if len(renFile.Name) < PocetNul then
    newName = String(PocetNul - len(renFile.Name), "0") & renFile.Name
    renFile.Name = newName
  end if
End Sub
'------------------------------------------------------------

-pp21-