vbs 列出某个文件夹下所有文件和文件夹的类型,大小,和所有者

最新推荐文章于 2021-06-09 13:45:51 发布
最新推荐文章于 2021-06-09 13:45:51 发布
阅读量2.6k 收藏
点赞数
文章标签： each microsoft 脚本 file 文档 user

 http://www.hackbase.com/subject/2009-09-23/16470.html

 

这是我在菊花论坛脚本版块看到的,真的很不错,一共有四个部份,把代码复制到记事本另存为GetOwner.VBS文件,

　　GetOwner.VBS用法,在命令行下:GetOwner.vbs 目录名会在相应目录下生成一个TXT.TXT文件,内里列出该目录下所有文件和文件夹的类型,大小,和所有者

　　注意:大小以MB为单位,小于1MB的就显示为0MB,

　　以下是代码:

　　G = WScript.arguments(0)

　　Set oFSO = CreateObject("Scripting.FileSystemObject")

　　set txt = oFSO.CreateTextFile(G&"TXT.txt",true) '嘿嘿,如果这个目录下刚好有一个TXT.txt文件,那就算你倒霉,

　　不会有人真用这种名字来做文件名吧?真的啊,真的有啊?那你

　　换地方吧~~~C: \TXT.TXT应该不会有了吧?

　　set objWMI = GetObject("winmgmts:")

　　Set oFiles = objWMI.ExecQuery("ASSOCIATORS OF {Win32_Directory.Name='"&G&"'}" & "where ResultClass =

　　CIM_logicalfile")

　　For Each oFile In oFiles

　　txt.WriteLine( "--------------------------------------------------------------")

　　txt.WriteLine( oFile.name)

　　txt.WriteLine( "Type: " & oFile.FileType)

　　if oFile.name = G&"system volume information" then

　　exit for

　　end if

　　if oFile.FileType="File Folder" then

　　Set objFolder = oFSO.GetFolder(oFile.name)

　　txt.WriteLine("Size: " & Cint(objFolder.Size/1024/1024) &"MB")

　　else

　　txt.WriteLine( "Size: " & cint(oFile.FileSize/1024/1024) &"MB")

　　end if

　　strFile = oFile.name

　　strComputer = "."

　　Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer &

　　"\root\cimv2")

　　Set colItems = objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & strFile

　　& "'}" & " WHERE

　　AssocClass=Win32_LogicalFileOwner ResultRole=Owner")

　　For Each objItem in colItems

　　if oFile.name = "system volume information" then

　　exit for

　　end if

　　txt.WriteLine( "FileOwner: " & objItem.AccountName)

　　Next

　　Next

　　统计某用户在某目录下的文件和文件夹使用方法:

　　脚本名 目录名 用户名

　　如:

　　owner.vbs d:\ lsj

　　结果是在相应目录下生成一个文本文件

　　格式如下:

　　--------------------------------------------------------------

　　d:\jcb-gx

　　Type: File Folder

　　Size: 22MB

　　--------------------------------------------------------------

　　d:\powerword 2003.rar

　　Type: WinRAR 档案文件

　　Size: 503MB

　　--------------------------------------------------------------

　　d:\txt.txt

　　Type: Text Document

　　Size: 0MB

　　--------------------------------------------------------------

　　d:\年 度 考 核 登 记 表2006版061225.doc

　　Type: Microsoft Word 文档

　　Size: 0MB

　　--------------------------------------------------------------

　　--------------------------------------------------------------

　　--------------------------------------------------------------

　　The TotalSize of All files lsj owns is: 525MB

　　~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

　　以下为脚本代码:

　　TotalSize = 0

　　G = WScript.arguments(0)

　　H = WScript.arguments(1)

　　Set oFSO = CreateObject("Scripting.FileSystemObject")

　　set txt = oFSO.CreateTextFile(G&"TXT.txt",true)

　　set objWMI = GetObject("winmgmts:")

　　Set oFiles = objWMI.ExecQuery("ASSOCIATORS OF {Win32_Directory.Name='"&G&"'}" & "where ResultClass =

　　CIM_logicalfile")

　　For Each oFile In oFiles

　　strFile = oFile.name

　　Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")

　　Set colItems = objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & strFile

　　& "'}" & " WHERE

　　AssocClass=Win32_LogicalFileOwner ResultRole=Owner")

　　For Each objItem in colItems

　　if objItem.AccountName = H then

　　txt.WriteLine( "--------------------------------------------------------------")

　　txt.WriteLine( oFile.name)

　　txt.WriteLine( "Type: " & oFile.FileType)

　　if oFile.name = G&"system volume information" then

　　exit for

　　end if

　　S = 0

　　if oFile.FileType="File Folder" then

　　Set objFolder = oFSO.GetFolder(oFile.name)

　　S= Cint(objFolder.Size/1024/1024)

　　else

　　S= Cint(oFile.FileSize/1024/1024)

　　end if

　　txt.WriteLine( "Size: " & S &"MB")

　　TotalSize = TotalSize + S

　　end if

　　Next

　　Next

　　txt.WriteLine( "--------------------------------------------------------------")

　　txt.WriteLine( "--------------------------------------------------------------")

　　txt.WriteLine( "--------------------------------------------------------------")

　　txt.WriteLine( "The TotalSize of All files "&H&" owns is: " & TotalSize &"MB")

　　更新后:

　　4.0版

　　使用方法:

　　脚本名 目录名

　　脚本会在相应目录下生成几个与本机用户对应的TXT文件,每个文件列出相应用户所有文件和文件夹的类型大小,并在最

　　后合总计算所有文件和文件夹的大小

　　以下是代码:

　　TotalSize = 0

　　G = WScript.arguments(0)

　　Set oFSO = CreateObject("Scripting.FileSystemObject")

　　Set objWMI = GetObject("winmgmts:")

　　Set oFiles = objWMI.ExecQuery("ASSOCIATORS OF {Win32_Directory.Name='"&G&"'}" & "where ResultClass =

　　CIM_logicalfile")

　　Set objNetwork = CreateObject("Wscript.Network")

　　strComputer = objNetwork.ComputerName

　　Set colAccounts = GetObject("WinNT://" & strComputer & "")

　　colAccounts.Filter = Array("user")

　　For Each objUser In colAccounts

　　H = objUser.Name

　　A = G & objUser.Name & "txt.txt"

　　Set txt = oFSO.CreateTextFile (A,true)

　　For Each oFile In oFiles

　　strFile = oFile.name

　　Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")

　　Set colItems = objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & strFile

　　& "'}" & " WHERE AssocClass=Win32_LogicalFileOwner ResultRole=Owner")

　　For Each objItem in colItems

　　if objItem.AccountName = H then

　　txt.WriteLine( "--------------------------------------------------------------")

　　txt.WriteLine( oFile.name)

　　txt.WriteLine( "Type: " & oFile.FileType)

　　if oFile.name = G&"system volume information" then

　　exit for

　　end if

　　S = 0

　　if oFile.FileType="File Folder" then

　　Set objFolder = oFSO.GetFolder(oFile.name)

　　S= Cint(objFolder.Size/1024/1024)

　　else

　　S= Cint(oFile.FileSize/1024/1024)

　　end if

　　txt.WriteLine( "Size: " & S &"MB")

　　TotalSize = TotalSize + S

　　end if

　　Next

　　Next

　　txt.WriteLine( "--------------------------------------------------------------")

　　txt.WriteLine( "--------------------------------------------------------------")

　　txt.WriteLine( "--------------------------------------------------------------")

　　txt.WriteLine( "The TotalSize of All files "&H&" owns is: " & TotalSize &"MB")

　　Next

　　再次更新后:

　　4.1版

　　用法同前

　　脚本名 目录名

　　在目录名下生成一个文件,按用户次序输出所有用户在该目录中的文件信息,格式如下:

　　--------------------------------------------------------------

　　The TotalSize of All files Administrator owns is: 0MB

　　--------------------------------------------------------------

　　※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

　　--------------------------------------------------------------

　　The TotalSize of All files Guest owns is: 0MB

　　--------------------------------------------------------------

　　※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

　　--------------------------------------------------------------

　　The TotalSize of All files HelpAssistant owns is: 0MB

　　--------------------------------------------------------------

　　※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

　　--------------------------------------------------------------

　　d:\powerword 2003.rar

　　Type: WinRAR 档案文件

　　Size: 503MB

　　--------------------------------------------------------------

　　d:\年 度 考 核 登 记 表2006版061225.doc

　　Type: Microsoft Word 文档

　　Size: 0MB

　　--------------------------------------------------------------

　　d:\jcb-gx

　　Type: File Folder

　　Size: 22MB

　　--------------------------------------------------------------

　　The TotalSize of All files lsj owns is: 525MB

　　--------------------------------------------------------------

　　※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

　　--------------------------------------------------------------

　　The TotalSize of All files SUPPORT_388945a0 owns is: 0MB

　　--------------------------------------------------------------

　　※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

　　以下是代码:

　　G = WScript.arguments(0)

　　Set oFSO = CreateObject("Scripting.FileSystemObject")

　　Set objWMI = GetObject("winmgmts:")

　　Set oFiles = objWMI.ExecQuery("ASSOCIATORS OF {Win32_Directory.Name='"&G&"'}" & "where ResultClass =

　　CIM_logicalfile")

　　Set objNetwork = CreateObject("Wscript.Network")

　　strComputer = objNetwork.ComputerName

　　Set colAccounts = GetObject("WinNT://" & strComputer & "")

　　colAccounts.Filter = Array("user")

　　For Each objUser In colAccounts

　　TotalSize = 0

　　H = objUser.Name

　　Set TXT = oFSO.OpenTextFile(G&"\TXT.TXT",8,true)

　　For Each oFile In oFiles

　　strFile = oFile.name

　　Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")

　　Set colItems = objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & strFile

　　& "'}" & " WHERE AssocClass=Win32_LogicalFileOwner ResultRole=Owner")

　　For Each objItem in colItems

　　if objItem.AccountName = H then

　　TXT.WriteLine( "--------------------------------------------------------------")

　　TXT.WriteLine( oFile.name)

　　TXT.WriteLine( "Type: " & oFile.FileType)

　　if oFile.name = G&"system volume information" then

　　exit for

　　end if

　　S = 0

　　if oFile.FileType="File Folder" then

　　Set objFolder = oFSO.GetFolder(oFile.name)

　　S= Cint(objFolder.Size/1024/1024)

　　else

　　S= Cint(oFile.FileSize/1024/1024)

　　end if

　　TXT.WriteLine( "Size: " & S &"MB")

　　TotalSize = TotalSize + S

　　end if

　　Next

　　Next

　　TXT.WriteLine( "--------------------------------------------------------------")

　　TXT.WriteLine( "The TotalSize of All files "&H&" owns is: " & TotalSize &"MB")

　　TXT.WriteLine( "--------------------------------------------------------------")

　　TXT.WriteLine( "※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※")

　　TXT.Close

　　Next

　　MsgBox "文件列表信息已成功输出至TXT.TXT文件",64,"OK"

leeo1010
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
vbs Size 属性使用介绍(获取文件大小)
09-04
为大家介绍vbs属性之size属性，供大家学习参考。Size 属性 对于文件，返回指定文件的字节数；对于文件夹，返回该文件夹中所有文件和子文件夹的字节数
vbs 列出该目录下所有文件和文件夹的类型,大小,和所有者
09-05
是我在菊花论坛脚本版块看到的,真的很不错,一共有四个部份,把代码复制到记事本另存为GetOwner.VBS文件,
【VBS编写规范模版】获取文件夹大小
ccyy_er的博客
04-19 512
使用VBS脚本获取文件夹的大小 第一步：编写脚本 GetFloderSize.vbs Option Explicit On Error Resume Next Dim objFSO, objLocalFolder, strArg, longLocalFolderSize, strSizeMess '判断参数 If WScript.Arguments.Count < 2 Then WScript.Echo "缺少参数，第一个参数为文件夹路径，第二个参数为报告路径" WScript.Quit E
vBS中读取文件 （txt、 xls 、execl）
ZXL工作室
05-05 6991
一。vBS中读取文本文件        首先要确保要读取的文件存在，我这里用的是C:\vbs\IE.vbs,新建一个ReadTxtFile.vbs,写入下面的内容： Const ForReading = 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenT
vbs 取文件大小 字节
weixin_34272308的博客
06-23 857
2019独角兽企业重金招聘Python工程师标准>>> ...
VBS获取当前目录下所有文件夹名字的代码
09-05
有时候我们需要获取当前目录下所有文件夹的名字，那么就可以参考下面的代码了
VBS 显示“选择文件或文件夹”对话框的代码
09-05
VBS 显示“选择文件或文件夹”对话框的代码，经测试windows xp下才可以使用，win2000,win2003没有内置这样的方法。
按照修改时间差异复制指定文件夹里所有文件
10-19
按照修改时间差异复制指定文件夹里所有文件，压缩包里两个文件，一个用于更新服务器端文件列表（目的是提高效率），一个用于自动更新并启动程序，代码不复杂，稍做修改就可用，可用于小软件公司自动更新软件用，缺点...
VBS遍历文件或文件夹路径输入文件的所有绝对路径（附源码）
08-25
主要介绍了VBS遍历文件或文件夹路径输入文件的所有绝对路径的代码,需要的朋友可以参考下
使用vbs列出文件夹下所有的文件及文件名
weixin_34292287的博客
07-09 3167
2019独角兽企业重金招聘Python工程师标准>>> ...
vbs提取所有文件属性
10-30
使用vbscript脚本批量提取文件夹里的所有文件名及大小
vbs 获取当前目录文件数量的代码(不包括子文件夹中的)
09-05
有时候我们需要获取当前目录下有多少个文件，那么就可以参考下面的代码
获取某个文件下所有文件的字节大小的软件源码
04-09
获取某个文件下所有文件的字节大小本人收集了一些技巧供大家参考，希望斑竹能多放一些时间。按字母或数字顺序排列列表框中的列表项. 将以下代码加入到你的程序中.
获得文件夹大小的VBS代码
09-04
主要介绍了vbs中获得文件夹大小的代码,需要的朋友可以参考下
VBS获取桌面所有文件
宁不凡的博客
06-09 2028
Set WshShell=Wscript.CreateObject("Wscript.Shell") Function FilesTree(sPath) '遍历一个文件夹下的所有文件夹文件夹 Set oFso = CreateObject("Scripting.FileSystemObject") Set oFolder = oFso.GetFolder(s...
VBS脚本常用经典代码
m0_53108882的博客
06-09 2556
1、VBS获取系统安装路径 /先定义这个变量是获取系统安装路径的，然后我们用“&strWinDir&”调用这个变量。/ setWshShell = WScript.CreateObject(“WScript.Shell”) strWinDir= WshShell.ExpandEnvironmentStrings("%WinDir%") 2、VBS获取C:/Program Files路径 msgbox CreateObject(“WScript.Shell”).ExpandEnvironme
递归计算指定文件夹以及子文件夹大小 - 只记录大于10M的文件夹
gflrlm的专栏
10-16 819
@echo off setlocal enabledelayedexpansion set jd=2 rem 设置需要计算的文件夹 set "dir=c:\" set /a KB=1024 set /a MB=1024*1024 set /a GB=1024*1024*1024 set /a TB=1024*1024*1024*1024 del /f /s /q "%cd%\calc_1.v
用VBS判断无BOM头的文件是否UTF-8编码
Loveit的专栏
11-15 1990
标签： BOM, UTF-8, VB, VBS, VBScript 标题: 用VBS判断无BOM头的文件是否UTF-8编码 作者: Demon 链接: http://demon.tw/programming/vbs-validate-utf8.html 版权: 本博客的所有文章，都遵守“署名-非商业性使用-相同方式共享 2.5 中国大陆”协议条款。 在 VBS 贴
vbs 创建100个文件夹文件夹，每个文件夹放一个txt文件
最新发布
05-26
可以使用以下VBScript代码来创建100个文件夹，每个文件夹中包含一个txt文件： ``` Dim fso, fol, fil Set fso = CreateObject("Scripting.FileSystemObject") For i = 1 To 100 Set fol = fso.CreateFolder("C:\...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值