[Ahmed_Mansoor]

أهلا أخي الكريم , هذا تعديل للإجراء السابق , إحذف السابق وإستبدله بهذا  :

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 zFilesList() As String
Dim I As Long
                                                        
zFiles = Dir$(zFolderPath & "*.bmp")
DoEvents

Do While Len(zFiles)
              
   I = I + 1
   
   ReDim Preserve zFilesList(1 To I) As String
   
   zFilesList(I) = zFolderPath & Trim$(zFiles)
   DoEvents
         
   zFiles = Dir$
   DoEvents
           
Loop

For I = LBound(zFilesList) To UBound(zFilesList)
    
    If Dir$(zFilesList(I)) <> "" Then
       Name zFilesList(I) As zFolderPath & I & ".bmp"
       DoEvents
    End If
    
Next

End Sub