请问VB和PB中如何让程序自动新建一个文件？

Question

Private Sub Command1_Click()
Open "c:\temp.txt" For Output As #1
Print #1, "abc"
Close #1
End Sub

Answer 1

Private Sub Form_Load()
    
    Dim FileNumber As Integer
    FileNumber = FreeFile
    Open App.Path + "temp.txt" For Append As #FileNumber
    Write #FileNumber, "Test"
    Close #FileNumber
    
End Sub

Answer 2

Private Sub Command1_Click()
'Append、Binary、Input、Output、或 Random 方式。如果未指定方式，则以
Open "c:\temp1.txt" For Output As #1
'产生一个空的文件
Close #1
Open "c:\temp2.txt" For Append As #1
'产生一个空的文件
Close #1
Open "c:\temp3.txt" For Binary As #1
'产生一个空的文件
Close #1
Open "c:\temp4.txt" For Random As #1
'产生一个空的文件
Close #1
End Sub