Question

怎样用vbs判断输入的字符串是否含有指定字符？？

我编了个vbs程序，有个地方要输入指定文件的路径，为了防止出错，路径格式不可以输入错误。
我想路径一般都有”/”这个符号，可以用判断字符串是否含有”/”这个符号来判断路径格式是否正确。具体改怎样实现？？
另外，该程序也支持相对路径，要是当前文件夹有个1.txt的文件，直接输入1.txt也行，那按照以上思路，这里又岂不是会报错？？
那我想可不可以先在当前文件夹搜索是否有1.txt这个文件，然后再判断是否含有”/”。这又要怎样解决？？

Answer 1

我这个才是正确的~~~

n=inputbox("请输入路径:","","1.txt")
set fso=createobject("scripting.filesystemobject")

if fso.fileexists(n) then
if instr(n,"\")=0 then
msgbox "发现同文件夹有"+n+"文件"
else
msgbox "路径格式正确："+n+",此文件存在"
end if
else
if instr(n,"\")=0 then
msgbox "路径格式错误或文件不在当前文件夹",16
else
msgbox "路径格式正确："+n +"，此文件不存在"
end if
end if

Answer 2

n=inputbox("请输入路径:","","c:\windows")
set fso=createobject("scripting.filesystemobject")
if fso.fileexists("1.txt") then
msgbox "当前文件夹下有1.txt文件"
else
if instr(n,"\")=0 then
msgbox "输入错误",16
else
msgbox "你输入的路径为："&n
end if
end if

Answer 3

'不要用Inputbox，出错的可能太多了

Set objDialog = CreateObject("UserAccounts.CommonDialog")

objDialog.Filter = "All Files|*.*"
objDialog.FilterIndex = 1
objDialog.InitialDir = "C:\"
intResult = objDialog.ShowOpen

If intResult = 0 Then
Wscript.Quit
Else
path=objDialog.FileName
End If
MsgBox path