标题: [问题求助] 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://bathome.net./) |
Powered by Discuz! 7.2 |