vbs获得当前路径所有文件夹的名称
DimsFolder,sExt,messagesFolder="F:\Programming\Applications\VBScript"Dimfs,oFolder,oF...
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代码,也可以说说,谢谢了!! 展开
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代码,也可以说说,谢谢了!! 展开
展开全部
呵呵,原来是团友简仿蚂啊我写了一个大枣!!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
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
追问
这个我看过了,不能达到我的要求,我要的是名称不是路径
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Set fso = 誉裂CreateObject("scripting.filesystemobject")
With fso.GetFolder(".")
For Each SB In 大虚迅.SubFolders
WScript.Echo 滚此sb.name
Next
End With
追问
我已经找到了,等回去我试试,还有就是,怎么获取vbs自身的文件名,要求不带格式。
追答
wscript.scriptname
都采纳了别人的还来问我,真是~~
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询