باز کردن فایل برای نوشتن
#1
Note 
سلام . دستور Open sfilename For Output As #1 خطای run time 52 رو میده لطفا برای رفع این مشکل راهنماییم کنینConfusedadsmiley:

پاسخ
#2
Note 
سلام
این اموزش رو مطالعه کنید:

چطور امضا کنم؟  Huh
پاسخ
#3
Note 
خیلی ممنون ولی برنامه من ،با کنترل commondialog هست برای ذخیره و باز کردن ، خطا می ده
[VB]
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%
[/VB]

آخرین ویرایش: 17-09-2014 ساعت 14:21، توسط Daniel
پاسخ
#4
Note 
[VB]
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

[/VB]

پاسخ
ایجاد موضوع جدید   پاسخ به موضوع  

کاربرانِ درحال بازدید از این موضوع:   1 مهمان