Board logo

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

作者: 窄口牛    时间: 2023-1-30 21:55     标题: 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,是没有\的
这样子的话后面再加文件夹就出现了偏差
作者: terse    时间: 2023-1-30 22:56

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

那就加个判断吧

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

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

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




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2