+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=23187)
الصفحات:
1
2
RE: كيفية انشاء مجلد في المسار التالي - bidaya - 04-01-18
(04-01-18, 12:48 AM)eiocm كتب : كان المفروض أن أدخل Kill شرط وجود الملف، لكن نسيته سهوا فعذراشكرا لك
تفضل التعديل
ساحاول اضافة للمثال كود حذف الملف التنفيذي عند الخروج من البرنامج
شكرا لك
كود :
Private Sub Form_Unload(Cancel As Integer)
If Dir(FileName) <> "" Then Kill (FileName)
End SubRE: كيفية انشاء مجلد في المسار التالي - eiocm - 04-01-18
FileName تم تعريفه داخل Cammand1 ولأجل أن يعمل يجب تعريفه في الأعلى
تفضل هذا التعديل
Dim Path_File As String
Dim FileName As String
Private Sub Command1_Click()
Path_File = Environ("AppData") & "\bt\"
If Dir$(Path_File, vbDirectory) = "" Then
MkDir Path_File
DoEvents
End If
MsgBox "Done..."
Call Get_Data_Resource
End Sub
Public Sub Get_Data_Resource()
Dim Arry() As Byte
Dim MyFile As Long
FileName = Path_File & "\myprog.exe"
If Dir$(FileName) <> "" Then Kill FileName
Arry = LoadResData(102, "Custom")
MyFile = FreeFile
Open (FileName) For Binary Access Write As #MyFile
Put #MyFile, , Arry
Close #MyFile
Shell FileName, vbNormalFocus
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Dir(FileName) <> "" Then Kill (FileName)
End Sub
لكن تأكد أن الملف ليس قيد الاستخدام
RE: كيفية انشاء مجلد في المسار التالي - bidaya - 04-01-18
(04-01-18, 01:09 AM)eiocm كتب : FileName تم تعريفه داخل Cammand1 ولأجل أن يعمل يجب تعريفه في الأعلى
لكن تأكد أن الملف ليس قيد الاستخدام
الف مليار تريال شكر اخي الله يرضى عليك ويهنيك
RE: كيفية انشاء مجلد في المسار التالي - eiocm - 04-01-18
والشكر لأخي أمير
فقد سهل الموضوع بوضعه المرفق