[问题求助] vbs选择目录的问题

窄口牛

strPath = BrowseForFolder("请选择游戏所在目录：")
Msgbox "你选的位置是：" & vbCrLf & strPath

' 浏览文件夹
Function BrowseForFolder(ByVal strTips)
  Dim objFolder
  Set objFolder = CreateObject("Shell.Application").BrowseForFolder (&H0, strTips, &H0010 + &H0001)
  If (Not objFolder Is Nothing) Then BrowseForFolder = objFolder.Self.Path  'objFolder.Items().Item().Path
End Function
复制代码

选择根目录，会得到f:\，是有\的
而选择文件夹，会得到f:\folder，是没有\的
这样子的话后面再加文件夹就出现了偏差

窄口牛

难者不会绞尽脑干，会者不难简简单单。
感谢回复。

terse

那就加个判断吧

试试呢

  if (right(BrowseForFolder,1)<>"\") then BrowseForFolder = objFolder.Self.Path & "\"
复制代码