كيف انشئ ملف نصي في مكان محدد برمجيا

[تامر خليفه]

مرحبا للجميع

كيف اقوم بأنشاء ملف نصي في مكان محدد برمجيا

ولكم كل الشكر

[Shivan Rekany]

3 دقائق مضت, تامر خليفه said:

مرحبا للجميع

كيف اقوم بأنشاء ملف نصي في مكان محدد برمجيا

ولكم كل الشكر

اتفضل
 

Open "D:\shivan.TXT" For Binary Access Write As #1
  Close #1

هذا الكود راح يعمل ملف تيكس باسم SHIVAN في قرص D
وتكدر تتغير مسار الى ما تريد

[تامر خليفه]

30 دقائق مضت, Shivan Rekany said:

اتفضل
 

Open "D:\shivan.TXT" For Binary Access Write As #1
  Close #1

هذا الكود راح يعمل ملف تيكس باسم SHIVAN في قرص D
وتكدر تتغير مسار الى ما تريد

الف شكر اخي الفاضل

[Shivan Rekany]

الان, تامر خليفه said:

الف شكر اخي الفاضل

لا داعي للشكر 
لكن هل تريد ان تزرع ملف في سيستم اذا كان في اي قرص كان نصب الويندوز ؟

[تامر خليفه]

6 دقائق مضت, Shivan Rekany said:

لا داعي للشكر 
لكن هل تريد ان تزرع ملف في سيستم اذا كان في اي قرص كان نصب الويندوز ؟

اخي الفاضل لا افهم ما تعنيه

انا قعلا اريد ان ازرع ملف نصي في مجلد سيستم 32

[Shivan Rekany]

الان, تامر خليفه 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

 

[تامر خليفه]

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)
ولااعرف السبب

[Shivan Rekany]

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