VBS操作文本文件的问题

Posted 2023-02-26

我的问题分以下几个步骤：

1、建立一个名为1.txt的文本文件，并且向里面写入：

; 脚本用 Inno Setup 脚本向导生成。
; 查阅文档获取创建 INNO SETUP 脚本文件详细资料!

2、写入“AppName=”（不包括引号），然后用一个输入框要求用户输入，把输入的内容直接写在等号后面。

3、写入“AppName=”（不包括引号），（这里弱弱地问一下VBS可以使用浏览控件不，如果可以的话要求用浏览控件浏览一个EXE文件，并且把路径写到“=”后面。）如果不能用浏览控件的话直接让用户输入就好。

4. 写入“AppName=”（不包括引号），（这里意思和上面的差不多，只是如果能用浏览控件的话记录的路径不要包括EXE文件名，比如：第3步的路径是：E:\单机游戏\CS1.5\Cs序列号更改器.exe,那么这一步的路径就是：Cs序列号更改器，同样写在“=”号后面。

代码完整且可用加30分
不好意思，我第四步的表达错了，我现在才发现，不好意思啊！
应该是获得这样的路径：E:\单机游戏\CS1.5\，就是说不要文件的名称。
不好意思啊

把最后一句改成
o.writeline "AppName="& fso.getparentfoldername(AppName)

把exe文件拖进vbs图标里
on error resume next
set fso=createobject("scripting.filesystemobject")
pth=fso.getparentfoldername(wscript.scriptfullname)
set o=fso.opentextfile(pth&"\1.txt",8,true)
if wscript.arguments(0) = "" then msgbox "请把文件拖进图标": wscript.quit
AppName=wscript.arguments(0)
o.writeline "; 脚本用 Inno Setup 脚本向导生成。"&vbcrlf&"; 查阅文档获取创建 INNO SETUP 脚本文件详细资料!"
o.writeline "AppName="& inputbox("输入","用户","百度")
o.writeline "AppName="& AppName
o.writeline "AppName="& fso.getparentfoldername(AppName) 参考技术A mark 参考技术B Option Explicit
Dim Dialog,open,AppName,objFso,F1,path
path=WScript.ScriptFullName
path=Mid(path,1,InStrRev(path,"\"))

Set Dialog=CreateObject("useraccounts.commondialog")
Dialog.Filter="All Files|*.*"
Dialog.InitialDir=path
open=Dialog.ShowOpen
If open=0 Then
WScript.Quit
Else
AppName=dialog.FileName
End If
Set Dialog=Nothing
AppName=Mid(CStr(AppName),1,InStrRev(CStr(AppName),"\"))

Set objFso=CreateObject("scripting.filesystemobject")
Set F1=objFso.OpenTextFile(path &"1.txt",8,True)
F1.WriteLine ";脚本用Inno setup导向生成"
f1.WriteLine ";查阅文档获取创建 INNO SETUP 脚本文件详细资料!"
F1.WriteLine "AppName=" & AppName
F1.Close
Set objFso=Nothing
Set F1=Nothing