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

Visual Basic 6

توسط در 6 سال پیش
0 32.3k 3 6 سال پیش
theknight daniel
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

خوش آمدید

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