Re: Hromadne prejmenovani souboru

sice tak jak je nějak nefunguje, ale přepsal jsem to do vba, jsem se nad 
tím nějak ve volné chvilce zamyslel a říkám si, proč vlastně hledat něco 
hotovýho, když ve VB jsou na to hotový objekty, takže stačí pár řádků 
kódu a je to navždy.

T.V.

Petr Pokorny napsal(a):

> 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-
>
>
> -----------------------------------------------------( reklama )-----
> Digitalni televize je jiz v Praze a Brne. Kdy dorazi k vam?
> Vse o digitalnim vysilani: pristroje, technologie, zakony, pokryti:
> Ctete DigiZone.cz (http://www.digizone.cz/)
> ---------------------------------------------------------------------