[mini]

作者: chung1206

各位先進們好，我在Form1表單裡做了一個button為另存新檔，但不知道要如何將TextBox的內容存起來，希望大大指教一二，謝謝。

後來更改如下：
Private Sub cmdsave_Click()
F = FreeFile
Open "c:\data\hello.txt" For OutPut As #F
Print #F, Text2.Text
Close #F
End Sub

但我還是希望能向第一支程式一樣跳一個視窗出來讓我自己選擇要存在那裡，自己命名檔名。

可以使用 Inputbox

Private Sub cmdsave_Click()
Dim sFileName As String

sFileName = InputBox("請輸入路徑+檔名", "存檔", "c:\data\hello.txt")
F = FreeFile
Open sFileName For OutPut As #F
Print #F, Text2.Text
Close #F
End Sub

再不然就要使用
CommonDialog

你只要把第一段與第二段修改結合一下就好了

    With CommonDialog1
        .DialogTitle = "選擇檔案"
        .Filter = "處理清單(*.fnl)|*.fnl"
        .ShowSave
        If Len(.filename) = 0 Then Exit Sub
        F = FreeFile 
        Open .filename For OutPut As #F 
        Print #F, Text2.Text 
        Close #F 
    End With