تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] اريد كود حفظ بأسم اي ملف اريده
#1
السلام عليكم

ممكن تساعدوني اريد كود حفظ بأسم اي ملف اريده، و اكون شاكرا لكم

ودمتم بخير
الرد }}}}
تم الشكر بواسطة:
#2
تفضل أخي هذا هو الكود لكن يجب إضافة أداة Common Dialog

ثم ضع هذا الكود في حدث الضغط على الزر


commonDialog1.Filter = " Text File|*.txt"
commonDialog1[/code].ShowSave
If commonDialog1.FileName <> "" Then
AppPath = commonDialog1.FileName
ValText = Text1
Open AppPath For Append As #1
Print #1, ValText
Close #1

هذا بالنسبة للملفات النصية بس انا مش فاهم عبارة
"اي ملف اريده"

يا ريت توضح

العاب من برمجتي  

Smile
الرد }}}}
تم الشكر بواسطة:
#3
تسلم يالغالي بس انا اقصد اني احفظ اي ملف اريد مثلا ز.bin iso img...الخ اي ملف في بالي ومشكور وجعله الله في ميزان حسناتك
ودمتم بخير و انتظر الرد منكم أعزائي الكرام
الرد }}}}
تم الشكر بواسطة:
#4
(15-09-13, 12:12 PM)MasterGrand كتب : تسلم يالغالي بس انا اقصد اني احفظ اي ملف اريد مثلا ز.bin iso img...الخ اي ملف في بالي ومشكور وجعله الله في ميزان حسناتك
ودمتم بخير و انتظر الرد منكم أعزائي الكرام
هل من مجيب هل من مبرمج كودر محترف يساعدني ويعطيني الكود ؟Confused
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم

- إستخدم هذا الكود :

كود :
Private Sub Command1_Click()

CommonDialog1.DialogTitle = "أكتب إسم الملف"
CommonDialog1.Filter = "All File|*.*"
CommonDialog1.ShowSave

MsgBox Trim$(CommonDialog1.FileName)

If Trim$(CommonDialog1.FileName) <> "" Then
  
   Dim F As Integer
  
   F = FreeFile
  
   Open AppPath For Binary As #F
        Put #F, , "ValueHere"
   Close #F
  
   MsgBox "تم حفظ الملف بنجاح"

Else

   MsgBox "لم يتم الحفظ لم تكتب إسم للملف"
  
End If

End Sub

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}}
تم الشكر بواسطة: ماستر قراند , VB_Local
#6
مشكور وياليت اتسوي هذا المثال كمشروع جديد وترفع في الموقع واكون ممتن لك ودمت بالف خير Angel
الرد }}}}
تم الشكر بواسطة:
#7
السلام عليكم

- في المرفقات .
- تحياتي .


الملفات المرفقة
.zip   Save_As.zip (الحجم : 1.86 ك ب / التحميلات : 226)
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}}
تم الشكر بواسطة: ناجي إبراهيم , allayl , abulayth , VB_Local
#8
كل الشكر لكم
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف اشترط على المستخدم ان يحدد السجل الذي اريد حذفه في برنامجي المرفق ؟؟ Microformt 2 87 21-10-16, 01:31 PM
آخر رد: Microformt
  اريد تغيير قاعدة البينات من اكسس الى سيكوال هل يكفي اغير كود الاتصال sendbad100 3 95 17-10-16, 05:00 PM
آخر رد: sendbad100
  اريد تعديل هذا الكود للبحث لاى كلمه فى النص رجل الكهرباء 2 111 03-10-16, 02:19 AM
آخر رد: رجل الكهرباء
  عندما اضغط على Try it يعرض لي التاريخ الموجود في الفورم اريد ان يعرض التاريخ في text abazrmhamed 3 123 19-09-16, 12:30 AM
آخر رد: Amir_alzubidy
  لو سمحتم اريد كود ترتيب ليست تصاعديا samira20 6 147 14-09-16, 06:02 PM
آخر رد: samira20
  ارجو المساعدة اريد افضل نسخة للفجول بيسك 6 تكون كاملة mhareek 5 284 30-08-16, 12:38 AM
آخر رد: إبراهيم خشافه
  اريد كود لتغيير التاريخ فقط للوندوز من الفجوال بيسك 6 scsi7000 2 108 25-08-16, 01:53 PM
آخر رد: scsi7000
  اريد برنامج لتعلم الحروف الانجليزية عبدالله الجذيلات 0 107 04-08-16, 03:01 PM
آخر رد: عبدالله الجذيلات
  اريد كود vb6 لعد الدوائر السمراء فى الصورة waylove1 3 178 04-06-16, 01:38 PM
آخر رد: waylove1
Question [vb6.0] هل يمكن ان احرك الفوم من اي نقطه اريد ؟؟ Microformt 3 124 03-06-16, 02:15 PM
آخر رد: Amir_alzubidy

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم