vbs选择目录的问题

窄口牛 · 发表于 2023-1-30 21:55:17

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:00

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

那就加个判断吧

试试呢

if (right(BrowseForFolder,1)<>"") then BrowseForFolder = objFolder.Self.Path & ""

复制代码

窄口牛 · 发表于 2023-1-31 08:35:41

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

		自动登录	找回密码
密码			注册

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

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