• باز کردن فایل برای نوشتن
    #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 مهمان