ASP如何获取指定文件夹下的子文件夹名
展开全部
oFile.name(这个就是你要的文件夹名字)NextEnd Function追问:
Input root folder's full path就是提示要输入完整的物理路径,replaceFileName(apath)调用函数,上面那两句话你不必理会,你只需要那个函数就够了补充:
参数就是你的那个父路径的物理路径,就是你那个图片上的地址栏里面的全部追问:
Function replaceFileName(ByVal allreview)
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(dPath)
Set oFiles = oFolder.Files
set oSubFolders=oFolder.Subfolders
For Each oFile In oFiles
response.Write oFile.nameNext
End Function
replaceFileName("F:\wangzhan\dongyi\c_program\allreview")回答:
应该是这样的追问:
可是不对呀,报错,
无效的过程调用或参数追问:
我知道哪错了,可是你这个读出来的是文件名,不是我要的,我要的是文件夹名回答:
既然知道哪儿错了,就自己改吧,学会举一反三哦,对自己有好处的,
其实很多问题,问问百度就知道了,要学会自己解决问题追问:
在循环里面加
if oFile.FileType="File Folder" then (判断一下文件是不是文件夹,是就打印名字)
response.Write oFSO.GetFolder(oFile.name)end if
学会举一反三追问:我看根本就得不到,得到的只是文件名,那个方法获取文件名的吧
Input root folder's full path就是提示要输入完整的物理路径,replaceFileName(apath)调用函数,上面那两句话你不必理会,你只需要那个函数就够了补充:
参数就是你的那个父路径的物理路径,就是你那个图片上的地址栏里面的全部追问:
Function replaceFileName(ByVal allreview)
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(dPath)
Set oFiles = oFolder.Files
set oSubFolders=oFolder.Subfolders
For Each oFile In oFiles
response.Write oFile.nameNext
End Function
replaceFileName("F:\wangzhan\dongyi\c_program\allreview")回答:
应该是这样的追问:
可是不对呀,报错,
无效的过程调用或参数追问:
我知道哪错了,可是你这个读出来的是文件名,不是我要的,我要的是文件夹名回答:
既然知道哪儿错了,就自己改吧,学会举一反三哦,对自己有好处的,
其实很多问题,问问百度就知道了,要学会自己解决问题追问:
在循环里面加
if oFile.FileType="File Folder" then (判断一下文件是不是文件夹,是就打印名字)
response.Write oFSO.GetFolder(oFile.name)end if
学会举一反三追问:我看根本就得不到,得到的只是文件名,那个方法获取文件名的吧
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询