باز کردن فایل برای نوشتن

Visual Basic 6

توسط در 4 سال پیش
0 984 3 4 سال پیش
theknightdaniel
0

سلام . دستور 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

خوش آمدید

برای طرح سوال، ایجاد بحث و فعالیت در سایت نیاز است ابتدا وارد حساب کاربری خود شوید. در صورتی که هنوز عضو سایت نیستید میتوانید در عرض تنها چند ثانیه ثبت نام کنید.

لطفا ابتدا لاگین کنید