[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

  1. strPath = BrowseForFolder("请选择游戏所在目录:")
  2. Msgbox "你选的位置是:" & vbCrLf & strPath
  3. ' 浏览文件夹
  4. Function BrowseForFolder(ByVal strTips)
  5.   Dim objFolder
  6.   Set objFolder = CreateObject("Shell.Application").BrowseForFolder (&H0, strTips, &H0010 + &H0001)
  7.   If (Not objFolder Is Nothing) Then BrowseForFolder = objFolder.Self.Path  'objFolder.Items().Item().Path
  8. End Function
复制代码
选择根目录,会得到f:\,是有\的
而选择文件夹,会得到f:\folder,是没有\的
这样子的话后面再加文件夹就出现了偏差

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

TOP

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

那就加个判断吧

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

TOP

返回列表