20-09-13, 01:27 AM
السلام عليكم
- إستخدم هذا الكود :
- تحياتي .
- إستخدم هذا الكود :
كود :
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