في الموضوع المطروح على الرابط .... http://www.officena.net/ib/index.php?showtopic=45643
تمت الإجابة على موضوع إنشاء الملجلدات برقم الموظف
وآثرت إستكمال الردّ على تشعب الأسئلة ، بموضوع جديد تحقيقاً لشروط المنتدى
وهنا سنتحدث ونطبق آلية نسخ و نقل الملفات بين المجلدات
حيث سنقوم ببناء الروتين بعد التحليل ثم ننتقل للتطبيق
والله المستعان ... وهو سبحانه من وراء القصد وهو حسبي
...........
نتابع
في محرر الفيجوال للنموذج ننسخ الروتين التالي
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