批处理之家 - Powered by Discuz! Board

标题: [问题求助] vbs选择目录的问题 [打印本页]

作者: 窄口牛 时间: 2023-1-30 21:55 标题: 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 时间: 2023-1-30 22:56

本帖最后由 terse 于 2023-1-30 23:27 编辑

那就加个判断吧

试试呢

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

作者: 窄口牛 时间: 2023-1-31 08:35

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

欢迎光临批处理之家 (http://www.bathome.net/)