+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : اريد كود انشاء مجلد باسم عام جديد (/showthread.php?tid=20090)
الصفحات:
1
2
RE: اريد كود انشاء مجلد باسم عام جديد - Ahmed_Mansoor - 01-05-17
وعليكم السلام ورحمة الله وبركاته
أهلا أخي الكريم , إستخدم هذا الكود لنقل مجلد من مكان إلى آخر :
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