Vbscript VBS输入框，不带文件扩展名的输出

我有两个提示，应该由用户填写

目标是，用户填写这两个提示，并且输出应将两者的组合作为文件名

例如，用户在第一个输入框中键入“Ryan”，在第二个输入框中键入“Smith”。因此，输出应该是一个名为“Ryan_Smith”的文件，但没有文件扩展名

目前它保存在一个“edit.txt”输出文件中，因为我不知道如何按照我的意愿完成它

Sub MyInputBox()
    Do
        firstNameInput = InputBox("First Name")
    Loop Until firstNameInput <> ""

    Do
        lastNameInput = InputBox("Second Name")
    Loop Until lastNameInput <> ""

    RootFolder = Ws.ExpandEnvironmentStrings("%USERPROFILE%\Desktop")
    MyFile = RootFolder & "\Edit.txt"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fileStream = fso.OpenTextFile(MyFile,ForAppending,True)
    fileStream.WriteLine "First Name: " & firstNameInput
    fileStream.WriteLine "Second Name: " & lastNameInput
    fileStream.WriteLine String(30,"*")
    fileStream.Close
End Sub

Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function

子MyInputBox（）
做
firstNameInput=InputBox（“名字”）
循环到firstNameInput“”
做
lastNameInput=InputBox（“第二个名称”）
循环直到lastNameInput“”
RootFolder=Ws.ExpandEnvironmentStrings（“%USERPROFILE%\Desktop”）
MyFile=RootFolder&“\Edit.txt”
设置fso=CreateObject（“Scripting.FileSystemObject”）
设置fileStream=fso.OpenTextFile（MyFile，ForAppending，True）
fileStream.WriteLine“First Name:”&firstNameInput
fileStream.WriteLine“第二个名称：”&lastNameInput
fileStream.WriteLine字符串（30，“*”）
文件流。关闭
端接头
函数DblQuote（Str）
DblQuote=Chr（34）和Str&Chr（34）
端函数

您可以根据自己的目的使用

例如：

Sub MyInputBox()
    dim WshShell, firstNameInput, lastNameInput, fso, fileStream, MyFile, RootFolder
    set WshShell = WScript.CreateObject("WScript.Shell")
    Do
        firstNameInput = InputBox("First Name")
    Loop Until firstNameInput <> ""

    Do
        lastNameInput = InputBox("Second Name")
    Loop Until lastNameInput <> ""

    RootFolder = WshShell.ExpandEnvironmentStrings("%USERPROFILE%\Desktop")
    MyFile = RootFolder & "\" & firstNameInput & "_" & lastNameInput
    '                         ^------------------------------------^----- Notice this filename creation
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fileStream = fso.CreateTextFile(MyFile)
    fileStream.Close
    set WshShell = nothing
    set fso = nothing
    set fileStream = nothing
End Sub

call MyInputBox()

子MyInputBox（）
dim WshShell、firstNameInput、lastNameInput、fso、fileStream、MyFile、RootFolder
设置WshShell=WScript.CreateObject（“WScript.Shell”）
做
firstNameInput=InputBox（“名字”）
循环到firstNameInput“”
做
lastNameInput=InputBox（“第二个名称”）
循环直到lastNameInput“”
RootFolder=WshShell.ExpandEnvironmentStrings（“%USERPROFILE%\Desktop”）
MyFile=RootFolder&“\”&firstNameInput&“\”&lastNameInput
'^----------------------------^-----请注意此文件名创建
设置fso=CreateObject（“Scripting.FileSystemObject”）
设置fileStream=fso.CreateTextFile（MyFile）
文件流。关闭
设置WshShell=nothing
设置fso=无
设置fileStream=nothing
端接头
调用MyInputBox（）

VB.NET标记的说明明确指出，它不应用于VBScript问题。也许在使用标签之前先阅读它的含义。