所以我试图让这个程序打开一个用户选择的文件,所以我让他们首先输入他们已经在桌面上的文件并将 .txt 扩展名放在名称后面,然后我尝试在末尾添加名称该目录并在线显示:10 列:1 类型不匹配任何帮助将不胜感激,谢谢。我是新来的 :)
Option Explicit
Dim a, b, c, d, e
Set a = createobject("wscript.shell")
c = msgbox("Welcome to my word finding program!", vbInformation+vbOkCancel+vbDefaultButton1+vbSystemModal, "Information: ")
b = inputbox("MAKE SURE THAT YOUR FILE IS ON YOUR DESKTOP!" &vbLf& "Please enter the name of your .txt file" &vbLf& "Rembmer to add .txt after it" &vbLf& "EX: Name.txt")
a.run"C:\Users\%username%\Desktop\", b