تامر خليفه قام بنشر فبراير 23, 2017 مشاركة قام بنشر فبراير 23, 2017 مرحبا للجميع كيف اقوم بأنشاء ملف نصي في مكان محدد برمجيا ولكم كل الشكر رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر فبراير 23, 2017 مشاركة قام بنشر فبراير 23, 2017 3 دقائق مضت, تامر خليفه said: مرحبا للجميع كيف اقوم بأنشاء ملف نصي في مكان محدد برمجيا ولكم كل الشكر اتفضل Open "D:\shivan.TXT" For Binary Access Write As #1 Close #1 هذا الكود راح يعمل ملف تيكس باسم SHIVAN في قرص D وتكدر تتغير مسار الى ما تريد 2 رابط هذا التعليق شارك More sharing options...
تامر خليفه قام بنشر فبراير 23, 2017 الكاتب مشاركة قام بنشر فبراير 23, 2017 30 دقائق مضت, Shivan Rekany said: اتفضل Open "D:\shivan.TXT" For Binary Access Write As #1 Close #1 هذا الكود راح يعمل ملف تيكس باسم SHIVAN في قرص D وتكدر تتغير مسار الى ما تريد الف شكر اخي الفاضل رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر فبراير 23, 2017 مشاركة قام بنشر فبراير 23, 2017 الان, تامر خليفه said: الف شكر اخي الفاضل لا داعي للشكر لكن هل تريد ان تزرع ملف في سيستم اذا كان في اي قرص كان نصب الويندوز ؟ رابط هذا التعليق شارك More sharing options...
تامر خليفه قام بنشر فبراير 23, 2017 الكاتب مشاركة قام بنشر فبراير 23, 2017 6 دقائق مضت, Shivan Rekany said: لا داعي للشكر لكن هل تريد ان تزرع ملف في سيستم اذا كان في اي قرص كان نصب الويندوز ؟ اخي الفاضل لا افهم ما تعنيه انا قعلا اريد ان ازرع ملف نصي في مجلد سيستم 32 رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر فبراير 23, 2017 مشاركة قام بنشر فبراير 23, 2017 الان, تامر خليفه said: اخي الفاضل لا افهم ما تعنيه انا قعلا اريد ان ازرع ملف نصي في مجلد سيستم 32 اي في كود السابق اذا تكتب مسار مثلا C:\Windows\System32 احتمال يحدث خطأ اذا كان فتحت القاعدة على جهاز وقرص الخاص لويندوز له بيكون مثلا قرص دي لذا اليك هذا الكود هو اولا يبحث عن مسار الوندوز وبعدين راح يزرع الملف واليك الكود On Error Resume Next Dim sSave As String, Ret As Long sSave = Space(255) Ret = GetSystemDirectory(sSave, 255) sSave = Left$(sSave, Ret) Open sSave & "\" & "shivan212.txt" For Binary Access Write As #1 Close #1 رابط هذا التعليق شارك More sharing options...
تامر خليفه قام بنشر فبراير 23, 2017 الكاتب مشاركة قام بنشر فبراير 23, 2017 11 دقائق مضت, Shivan Rekany said: اي في كود السابق اذا تكتب مسار مثلا C:\Windows\System32 احتمال يحدث خطأ اذا كان فتحت القاعدة على جهاز وقرص الخاص لويندوز له بيكون مثلا قرص دي لذا اليك هذا الكود هو اولا يبحث عن مسار الوندوز وبعدين راح يزرع الملف واليك الكود On Error Resume Next Dim sSave As String, Ret As Long sSave = Space(255) Ret = GetSystemDirectory(sSave, 255) sSave = Left$(sSave, Ret) Open sSave & "\" & "shivan212.txt" For Binary Access Write As #1 Close #1 تظهر رساله خطأ مع تظليل علي Ret = GetSystemDirectory(sSave, 255) ولااعرف السبب رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر فبراير 23, 2017 مشاركة قام بنشر فبراير 23, 2017 39 دقائق مضت, تامر خليفه said: تظهر رساله خطأ مع تظليل علي Ret = GetSystemDirectory(sSave, 255) ولااعرف السبب عفوا نسيت في اعلا نموذج في محرر فيجوال في اسفل Option Compare Database اكتب Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.