AHMED 7ASSAN
3مشاركة
0السمعة
1موضوع منشور
21 نوفمبر 2013تاريخ الانضمام
26 نوفمبر 2013آخر زيارة
340مشاهدة للملف
- من فضلكم اريد الافاده فى هذه الاكواد
المشكله انا معايا تشغيل البرنامج ده صاحبه سيبهولى وسافر بس انا فى واحد خد من الفلاشه بتاعتى وخد تشغيل البرنامج وانا مش عارف اعمل ايه وصاحب البرنامج مش عارف اوصله انه هو فى ايطاليا وعايز امن البرنامج ومش عارف
- من فضلكم اريد الافاده فى هذه الاكواد
ممكن اعرف ازاى اعدل فى هذا الكود او ممكن الشرح احمد حسن
- من فضلكم اريد الافاده فى هذه الاكواد
Public Function StartSys() On Error GoTo Change_Err Dim FS, d, MasterSerial, ISCounter, IsDated, ToDate, WinDir, f Dim prp As Variant Set FS = CreateObject("Scripting.FileSystemObject") Set WinDir = FS.GetSpecialFolder(0) If Dir(WinDir & "\winsys.pwl") = "" Th…