Nemáte Total Commander? Tam označíte, Ctrl+M, dáte nahradiť "." a potom "," za "nič".
Dá sa samozrejme aj makrom. Keď píšete hromadne, tak myslíte tak, že si chcete určiť hlavný adresár napr. "C:\leden\" a premenuje všetky podadresáre?
EDIT:
Sub Premenuj(Cesta As String)
Dim objFLD As Object, Chyb As Long
On Error Resume Next
For Each objFLD In CreateObject("Scripting.FileSystemObject").GetFolder(Cesta).SubFolders
objFLD.Name = Replace(Replace(objFLD.Name, ",", ""), ".", "")
If Err.Number <> 0 Then Chyb = Chyb + 1: Err.Clear
Next objFLD
On Error GoTo 0
MsgBox IIf(Chyb = 0, "Všetky adresáre premenované.", "Niektoré adresáre neboli premenované (" & Chyb & ")."), IIf(Chyb = 0, vbInformation, vbCritical)
Set objFLD = Nothing
End Sub
Sub pokus()
Premenuj "e:\Download\1\"
End Subcitovat
Dá sa samozrejme aj makrom. Keď píšete hromadne, tak myslíte tak, že si chcete určiť hlavný adresár napr. "C:\leden\" a premenuje všetky podadresáre?
EDIT:
Sub Premenuj(Cesta As String)
Dim objFLD As Object, Chyb As Long
On Error Resume Next
For Each objFLD In CreateObject("Scripting.FileSystemObject").GetFolder(Cesta).SubFolders
objFLD.Name = Replace(Replace(objFLD.Name, ",", ""), ".", "")
If Err.Number <> 0 Then Chyb = Chyb + 1: Err.Clear
Next objFLD
On Error GoTo 0
MsgBox IIf(Chyb = 0, "Všetky adresáre premenované.", "Niektoré adresáre neboli premenované (" & Chyb & ")."), IIf(Chyb = 0, vbInformation, vbCritical)
Set objFLD = Nothing
End Sub
Sub pokus()
Premenuj "e:\Download\1\"
End Subcitovat
\n
RSS nejnovější články