vbscript管理磁盘文档目录

1. 目的:通过vbscript生成磁盘目录和文档的清单,写入到excel中保存
2. 途径: 通过wscript的Excel.Application对象和Scripting.FileSystemObject对象
3. 函数:
   a. writexls写入excel内容
   b. listfiles遍历所有文件
   c. listsubdir列出所有的子目录并且遍历迭代
4. 注意事项:
   a. 获取当前目录:createobject(“Scripting.FileSystemObject”).GetFolder(“.”).Path
   b.注意释放内存
   代码路径:https://github.com/clark99/Program_differ/tree/master/vb_list_ftpfiles

dim xlsAppdim xlsWorkBookdim xlsSheetdim fileappdim folderdirdim folderobjectdim subfolderobjectdim filenamedim subdirpathdim idim clumnsdim rowsclumns=1rows=1'wscriptExcel 对象Set xlsApp = CreateObject("Excel.Application")xlsApp.Visible = TruexlsApp.DisplayAlerts=False'msgbox xlsApp.DisplayStatusBar'createobject("Scripting.FileSystemObject").GetFolder(".").Pathscriptpath = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Pathfilename=scriptpath&"\filelist.xlsx"set xlsWorkBook=xlsApp.Workbooks.open(filename)set xlsSheet=xlsWorkBook.sheets(1)xlsSheet.Activate'wscript 文件系统对象Set fileapp=CreateObject("Scripting.FileSystemObject")folderdir=InputBox("input the dirpath for list,for example E:", MsgTitle)'folderdir="E:"Public Sub writexls(rows,clumns,value)    xlsSheet.Cells(rows,clumns).value=value    xlsWorkBook.SaveEnd SubPublic Sub listfiles(folderdir)    'folder对象,Subfolder对象    clumns=coumns+1    Set folderobject=fileapp.GetFolder(folderdir)    '当前目录的文档    for each i in folderobject.files        rows=rows+1        call writexls(rows,clumns,folderdir)        call writexls(rows,clumns+1,i.name)        On Error Resume Next    next '结束遍历所有excel文件End SubPublic Sub listsubdir(folderdir)    call listfiles(folderdir)    Set folderobject=fileapp.GetFolder(folderdir)    Set subfolderobject=folderobject.SubFolders     '子目录处理    for each subdirpath in subfolderobject        call listsubdir(subdirpath)        On Error Resume Next    next '结束遍历所有子目录End SubCall listsubdir(folderdir)xlsWorkBook.ClosexlsApp.QuitSet xlsSheet=Nothing '释放内存Set xlscon=Nothing '释放内存Set xlsWorkBook = Nothing '释放内存Set xlsApp = Nothing  '释放Excel对象Set subfolderobject=Nothing '释放内存Set folderobject=Nothing '释放内存Set fileapp=Nothing '释放内存

支持原创
微信公众号：clark_blog
博客：blog.csdn.net/clark_xu
代码：https://github.com/clark99