السلام عليكم
ممكن تساعدوني اريد كود حفظ بأسم اي ملف اريده، و اكون شاكرا لكم
ودمتم بخير
تفضل أخي هذا هو الكود لكن يجب إضافة أداة 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
هذا بالنسبة للملفات النصية بس انا مش فاهم عبارة
"اي ملف اريده"
يا ريت توضح
تسلم يالغالي بس انا اقصد اني احفظ اي ملف اريد مثلا ز.bin iso img...الخ اي ملف في بالي ومشكور وجعله الله في ميزان حسناتك
ودمتم بخير و انتظر الرد منكم أعزائي الكرام
(15-09-13, 12:12 PM)MasterGrand كتب : [ -> ]تسلم يالغالي بس انا اقصد اني احفظ اي ملف اريد مثلا ز.bin iso img...الخ اي ملف في بالي ومشكور وجعله الله في ميزان حسناتك
ودمتم بخير و انتظر الرد منكم أعزائي الكرام
هل من مجيب هل من مبرمج كودر محترف يساعدني ويعطيني الكود ؟
السلام عليكم
- إستخدم هذا الكود :
كود :
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
- تحياتي .
مشكور وياليت اتسوي هذا المثال كمشروع جديد وترفع في الموقع واكون ممتن لك ودمت بالف خير 
السلام عليكم
- في المرفقات .
- تحياتي .