[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 I As Long
                                                        
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 


وطريقة إستخدامة هكذا :

PHP كود :

Private Sub Command1_Click()

RenameFilesInFolder "C:\Folder1\"

End Sub