كود اليوم 15 : تابع / تشغيل اوامر الدوس من الVB

ألف شكر

السلام عليكم

مشكور hamohd70 ... ولكن للأسف لم استطع استعراض الكود ... لأن الجهاز الذى أستخدمه لا يوجد به برنامج VB .....!!!!

وطلب تكرر فى منتدى الأكسس من قبل وهو يفضل وضع الكود البرمجى فى المشاركة مهما كان كبيرا ليتسنى للجميع رؤيته بسهولة دون عناء التحميل ... وذلك بالإضافة للبرنامج المرفق ...

بارك الله فيكم

بارك الله فيك

نكرم يالفاروق سأعرض لك الكود ولكن اعتقد ان اقتراحك بعرض الكود مهما كان كبيرا غير عملي خصوصا وان تضمن البرنامج modules و classes بالاضافه للفورمز و.. و..:o

البرنامج هذا يحتوي على فورم واحد و زر واحد:

    Dim NewFile As Integer

    Dim File_Data As String, DosCmd As String

    Dim X

    'Create a batch file to:

    '   1. make a directory called : hamohd70

    '   2. copy all *.txt files from c: to it

    '   3. Dir the directory and output to DIRLIST.TXT

    DosCmd = "mkdir c:hamohd70" & vbNewLine

    DosCmd = DosCmd + "COPY C:*.txt C:hamohd70" + vbNewLine

    DosCmd = DosCmd + "DIR C:hamohd70 > C:hamohd70Dirlist.txt"

    NewFile = FreeFile

    Open "C:myBatch.bat" For Output As #NewFile

    Print #NewFile, DosCmd

    Close #NewFile

    On Error GoTo 0

    X = Shell("C:myBatch.bat", vbHide)

    Shell "start.exe C:hamohd70Dirlist.txt"

    

    'Delete our files?

    'if YES then execute a normal dos command

    If MsgBox("هل تريد حذف الملفات التي صنعناها؟", vbYesNo + vbCritical, "Batch files") = vbYes Then

        X = Shell("Command.com /c deltree /y c:hamohd70", vbHide)

        X = Shell("Command.com /c del C:mybatch.bat", vbHide)

    End If

السلام عليكم

مشكوووووووووور أخ hamohd70 ولكن ألست معى فى فائدة وضع الكود مع إرفاق الملف بالمشاركات ؟؟؟

وعموما ... كان لى سؤال : بعد فتحك لملف الPatch نريد ان ترفق كود أخر لإغلاقه عن طريق زر بالنموذج ...

تحياتى وإلى الأمام إن شاء الله تعالى

اقتباس

بعد فتحك لملف الPatch

هل تقصد هذا الكود؟

Open "C:myBatch.bat" For Output As #NewFile

اذا كان كذلك فيمكنك اغلاقه بالكود:

Close #NewFile

ولكن لن يمكنك تشغيل الملف بالكود:

X = Shell("C:myBatch.bat", vbHide)

قبل غلق الملف اولا...