VBS操作文本文件的问题
发布网友
共3个回答
热心网友
把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)
热心网友
mark
热心网友
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
