Witam,
Mam mały problem. Otóż chciałbym, żeby macro wchodziło mi do danego folderu i zamieniło wszystkie nazwy plików jakie tam się znajdą na nowe, np. 2782ga na plik1, 72919ha na plik2 itd. Mam pętle która liczy ile w danym folderze znajduje się plikow, problem jest jedynie z zmiana nazwy.
Pozdrawiam,
Tomek
0
1
Musisz dwie pętle po Dir() wykonać. W pierwszej wsadzić do tablicy/kolekcji nazwy plikow, a w drugiej zmienić nazwy. Inaczej może dojść do sytuacji, że pozmienia ci nazwy danego pliku parę razy...
0
Oki, a mógłbyś mi jakiś szybki pseudokod napisać? Byłbym bardzo wdzięczny:)
1
Sub FileRename(SourceFile$, DestinationFile$)
On Error Resume Next
FileSystem.FileCopy SourceFile, DestinationFile
FileSystem.Kill SourceFile
On Error GoTo 0
End Sub
Sub t()
Dim path$, filename, i&
Dim colFiles As New Collection
path = "c:\tmp\tmp\"
' odczyt i wrzucenie do kolekcji
filename = Dir(path & "*.mp3")
While filename <> vbNullString
colFiles.Add (filename)
filename = Dir()
Wend
' zmiana nazw
i = 1
For Each filename In colFiles
FileRename path & filename, path & "plik" & i & ".mp3"
i = i + 1
Next
End Sub
0
Wielkie dzięki, wszystko śmiga jak należy :D