نقل ملفات من مكان الى مكان اخر على الحاسب من النموذج

[figo82eg]

 ما اريده هو نقل ملفات من مكان الى مكان اخر على الحاسب عند الضغط على زر بالنموذج

ومرفق مثال لما اريد

account.mdb CONTACT.rar

[AlwaZeeR]

بالاعتماد على نفس الكود الذي وضعته لك في مشاركة سابقة مع بعض التعديلات

تفضل

Dim File_Path As String
Dim File_Name As String
Dim Name_Path As String
Dim Fso As Object

Dim NewPath As String

Set Fso = CreateObject("scripting.filesystemobject")
  
  File_Path = Application.CurrentProject.Path & "\CONTACT\"
  NewPath = Application.CurrentProject.Path & "\CONTACT\Old\"
 
  File_Name = Dir(File_Path & "\*.*")
  Name_Path = File_Path & File_Name
    
    If InStr(File_Name, crn) > 0 Then
       MsgBox (" * تم ايجاد تطابق بين رقم كذا والملف - سيتم نقله  * ")
  
          Fso.MoveFile Name_Path, NewPath
    
    Else
   
   MsgBox (" * لا يوجد ملفات لنقلها * ")
    
    End If

 

MoveFile.mdb CONTACT.rar

[figo82eg]

شكرا اخى الكريم على جهودك جزالك الله عنا كل خير