01-05-17, 12:18 AM
وعليكم السلام ورحمة الله وبركاته
أهلا أخي الكريم , إستخدم هذا الكود لنقل مجلد من مكان إلى آخر :
أهلا أخي الكريم , إستخدم هذا الكود لنقل مجلد من مكان إلى آخر :
PHP كود :
If Dir$(App.Path & "\copy", vbDirectory) <> "" Then
Dim FSO As Object
Dim zSource, zDestination As String
Set FSO = CreateObject("Scripting.FileSystemObject")
DoEvents
zSource = App.Path & "\copy"
zDestination = App.Path & "\" & zYear & "\copy"
FSO.MoveFolder zSource, zDestination
DoEvents
Set FSO = Nothing
DoEvents
MsgBox "تم نقل المجلد بنجاح"
Else
MsgBox "لم يتم نقل المجلد,المجلد غير موجود في المسار المحدد"
End If