vbs获得当前路径所有文件夹的名称

Posted 2023-04-22

Dim sFolder, sExt, message
sFolder = "F:\Programming\Applications\VBScript"

Dim fs, oFolder, oFiles, oSubFolders
set fs = CreateObject("Scripting.FileSystemObject")
set oFolder = fs.GetFolder(sFolder) '获取文件夹
set oSubFolders = oFolder.SubFolders '获取子目录集合

for each folder in oSubFolders
message = "文件夹：" & folder
MsgBox message
Next

set oFiles = oFolder.Files '获取文件集合
for each file in oFiles
sExt = fs.GetExtensionName(file) '获取文件扩展名
sExt = LCase(sExt) '转换成小写
message = "文件名：" & file.Name & ", 扩展名：" & sExt '获得文件名(含扩展名,不含路径)和扩展名
MsgBox message
Next

补充，上面的folder.Name可以得到文件夹的名称(不含路径)

如：folder = F:\Programming\Applications\VBScript\dd

通过folder.Name可以得到"dd"

上面是我从网络上找到的代码，总的就是网我不懂“通过folder.Name可以得到"dd"”，无论我怎么试都还是不能获得文件夹名，还有上面的
set fs = CreateObject("Scripting.FileSystemObject")
set oFolder = fs.GetFolder(sFolder) '获取文件夹
set oSubFolders = oFolder.SubFolders '获取子目录集合

for each folder in oSubFolders
message = "文件夹：" & folder
MsgBox message
Next
似乎是没有用的？message根本就没有值，输出不了。
如果你有更好的获得当前路径所有文件夹的名称的vbs代码，也可以说说，谢谢了！！

参考技术A 呵呵，原来是团友啊我写了一个！！Set ws=WScript.CreateObject("wscript.shell")
w=ws.CurrentDirectory
Set fso=WScript.CreateObject("scripting.filesystemobject")
Set fs=fso.GetFolder(w)
Set f=fs.SubFolders
For Each uu In f
t=t & uu.Path & vbcrlf
Next
MsgBox t追问

这个我看过了，不能达到我的要求，我要的是名称不是路径

本回答被提问者和网友采纳 参考技术B Set fso = CreateObject("scripting.filesystemobject")

With fso.GetFolder(".")

For Each SB In .SubFolders

WScript.Echo sb.name

Next

End With

追问

我已经找到了，等回去我试试，还有就是，怎么获取vbs自身的文件名，要求不带格式。

追答

wscript.scriptname
都采纳了别人的还来问我，真是~~

vbscript vbs当前路径等

脚本所在路径：
createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path

未测试：
left(wscript.scriptfullname,instrrev(wscript.scriptfullname,"\")-1)

脚本的运行路径
createobject("Scripting.FileSystemObject").GetFolder(".").Path