[AL_BRNS]

السلام عليكم

بعد الادن من اخي احمد اظافة بسيطة للكود

جرب التالي 

PHP كود :

Private Sub RenameFilesInFolder(zFolderPath As String)
If Trim$(zFolderPath) = "" Then Exit Sub
If Right(zFolderPath, 1) <> "\" Then zFolderPath = zFolderPath & "\"
Dim zFiles As String
Dim I As Long
 I = 0
 On Error Resume Next
zFiles = Dir$(zFolderPath & "*.bmp")
DoEvents
Do While Len(zFiles)
 I = I + 1
Name zFolderPath & Trim$(zFiles) As zFolderPath & I & ".bmp"
DoEvents
zFiles = Dir$
 DoEvents
Loop
End Sub
Private Sub Command1_Click()
RenameFilesInFolder "C:\Folder1\"
End Sub 


بالتوفيق .