如何采用脚本获取指定目录文件夹文件列表
1个回答
展开全部
Option Explicit
'定义函数和常量
dim fso,fd,fd2,f,f1
dim str,i
dim wsh
set wsh=CreateObject("WSCript.Shell")
set fso=CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile("列表文件.htm")'建立列表文件
Listbox "D:\ZXF"
Function Listbox(Folder)
set fd=fso.GetFolder(Folder)
set str=fso.OpenTextFile("列表文件.htm",8,1)'打开列表文件，并添加文件
str.write "<html>"
str.write "<head>"
str.write "<title>文件列表</title>"
str.write "<style type='text/css'>"
str.write "body{background:#000000;font-size:12px;line-height:16px;color:#80ff80;}"
str.write "</style>"
str.write "<body>"
str.write fd & "<br>" & vbcrlf
for each f1 in fd.Files'搜索父文件夹中所有文件
str.write f1 & "<br>" & vbcrlf'添加文件地址并换行
next
for each fd2 in fd.SubFolders'搜索子文件夹所有文件夹
str.write fd2 & "<br>" & vbcrlf
for each f in fd2.Files'搜索文件夹中所有文件
str.write f & "<br>" & vbcrlf'添加文件地址并换行
next
next
str.write "</body>"
str.write "</html>"
str.Close'关闭列表文件
wsh.Run "列表文件.htm"
End Function
set str=nothing
set fd=nothing
set fso=nothing
set wsh=nothing
'定义函数和常量
dim fso,fd,fd2,f,f1
dim str,i
dim wsh
set wsh=CreateObject("WSCript.Shell")
set fso=CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile("列表文件.htm")'建立列表文件
Listbox "D:\ZXF"
Function Listbox(Folder)
set fd=fso.GetFolder(Folder)
set str=fso.OpenTextFile("列表文件.htm",8,1)'打开列表文件，并添加文件
str.write "<html>"
str.write "<head>"
str.write "<title>文件列表</title>"
str.write "<style type='text/css'>"
str.write "body{background:#000000;font-size:12px;line-height:16px;color:#80ff80;}"
str.write "</style>"
str.write "<body>"
str.write fd & "<br>" & vbcrlf
for each f1 in fd.Files'搜索父文件夹中所有文件
str.write f1 & "<br>" & vbcrlf'添加文件地址并换行
next
for each fd2 in fd.SubFolders'搜索子文件夹所有文件夹
str.write fd2 & "<br>" & vbcrlf
for each f in fd2.Files'搜索文件夹中所有文件
str.write f & "<br>" & vbcrlf'添加文件地址并换行
next
next
str.write "</body>"
str.write "</html>"
str.Close'关闭列表文件
wsh.Run "列表文件.htm"
End Function
set str=nothing
set fd=nothing
set fso=nothing
set wsh=nothing
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
