Question

VB 菜单 ——文件——新建TXT文件

（1）点文件 -新建之后出来（2）对话框

（2）

我想输文件名之后点确定，就创建一个相应文件名的TXT文件。
我的代码如下：现在是错误的

Private Sub 新建m_Click() CommonDialog4.Filter = "txt files(*.txt)" FileName = GetFileName("输入文件名!") 'FileNum = FileOpener(FileName, conRandomFile （As Integer, Len(Employee), Confirm) ' FileIOFrame.Enabled = True CreateAfile 'CommonDialog4.ShowNewEnd SubSub CreateAfile() '创建一个文件 Set fs = CreateObject("Scripting.FileSystemObject") Path = "f:\1\ FileName.txt" Set C = fs.CreateTextFile(Path, True) C.WriteLine ("This is a test.") C.CloseEnd SubFunction GetFileName(Prompt As String) As String GetFileName = LTrim(RTrim(UCase(InputBox(Prompt, "Enter File Name"))))End Function
求指点





Answer 1

‘你的子程序
sub CreateAfile()
''''
Path = "f:\1\ FileName.txt" '这里已经固定每次创建文件名了
''''
End Sub

‘建议改成
sub CreateAfile(fname as string)
''''
Path = "f:\1\ " & fname & ".txt"
''''
End Sub
'用法
CreateAfile FileName

追问

Private Sub 新建m_Click()
CommonDialog4.Filter = "txt files(*.txt)"
FileName = GetFileName("输入文件名!")
CreateAfile
End Sub
运行到这就提示 CreateAfile参数不可选。求！

追答

CreateAfile FileName