Question

如何获取用户输入并将其作为文本文件的目录？

我尝试在（“ Inp.txt”）周围加上引号，但这没有读取实际的用户输入。

Set oFSO = CreateObject("Scripting.FileSystemObject")
Inp= InputBox("Please Enter Desired Location of Log File:")
If Inp= "" Then  
    Set oTF = oFSO.CreateTextFile("C:\Old Files.txt")
Else 
    Set oTF = oFSO.CreateTextFile(Inp.txt)
End If

我想提示用户输入内容，询问他们要将创建的文本文件放置在何处；如果留空，我会将其设置为默认位置。我尝试设置输入框提示，但是当我将其用作文本文件位置时，收到“对象必需”运行时错误。

Answer 1

Build包含目录和文件名的完整路径：

Set oTF = oFSO.CreateTextFile(oFSO.BuildPath(Inp, "output.txt"))

不过，我建议让用户browse使用该文件夹。

Set app = CreateObject( "Shell.Application" )
Set d = app.BrowseForFolder(0, "Select Folder", 1, "C:\")
If d Is Nothing Then
    Inp = "C:\"
Else
    Inp = d.Self.Path
End If

Set oTF = oFSO.CreateTextFile(oFSO.BuildPath(Inp, "output.txt"))

让用户选择放置创建的文本文件的目录

1 个答案: