نتابع   في محرر الفيجوال للنموذج ننسخ الروتين التالي     Function MoveAFile(OldName As Variant, NewName As Variant) If IsNull(OldName) Or IsNull(NewName) Then MsgBox "Old or New Folder/File name not supplied to function." Exit Function End If retval = 0 Dim objFSO As Object Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(Me.txtlocF) = True Then MsgBox "File exists" Else retval = objFSO.CopyFile(OldName, NewName, False) 'True Set objFSO = Nothing MsgBox "File h