16-12-19, 01:40 PM
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم ، هذا تعديل كودك :
أهلا بك أخي الكريم ، هذا تعديل كودك :
PHP كود :
Private Sub chose_file()
On Error Resume Next
Close
With CommonDialog1
.FileName = ""
.DialogTitle = "Open File"
.CancelError = True
.Filter = "All Files (*.*)|*.*"
.ShowOpen
IF FileLen(.FileName) <> 8192 Then Exit Sub
strfile = .FileName
End With
End Sub
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next