سلام . دستور Open sfilename For Output As #1 خطای run time 52 رو میده لطفا برای رفع این مشکل راهنماییم کنین:sadsmiley:
0
سلام
این اموزش رو مطالعه کنید: [url]http://www.softafzar.net/thread419.html/[/url]
0
خیلی ممنون ولی برنامه من ،با کنترل commondialog هست برای ذخیره و باز کردن ، خطا می ده
Dim sfilename As String
Dim stext As String
Dim sfilter As String
Dim buffer As String
Dim filehandele%
sfilter = " text (*.txt)|*.txt | allfiles (*.*)| *.* "
cdMain.Filter = sfilter
cdMain.ShowSave
If cdMain.FileName <> "" Then
sfilename = cdMain.FileName
stext = Text1.Text
filehandel% = FreeFile
Open sfilename For Output As #filehandle%
آخرین ویرایش: 17-09-2014 ساعت 14:21، توسط Daniel
0
Private Sub Command1_Click()
Dim sfilename As String
Dim stext As String
Dim sfilter As String
Dim buffer As String
Dim filehandele%
sfilter = " text (*.txt)|*.txt | allfiles (*.*)| *.* "
cdmain.Filter = sfilter
cdmain.ShowSave
If cdmain.FileName <> "" Then
sfilename = cdmain.FileName
stext = Text1.Text
filehandel = FreeFile
Open sfilename For Output As #filehandel Len = 8
End If
End Sub
سوال برنامه نویسی دارید؟
هیچ وقت در پرسیدن سوال شک نکنید