你的位置：

[按键精灵]【实例】用按键精灵获取文件夹属性

来源[ANJIAN] 点击[94] 作者[admin] 时间[2017-03-04 23:43:14]

编辑整理了一些获取文件夹常用属性的代码，把脚本拷贝到按键精灵“源文件”中保存，运行查看结果。

UserVar path=\"c:\\我的文件夹\"  \"请输入文件夹完整路径\"
dim path,a,b,objFSO,myfolder,objFolder,colFiles
path = cstr(path)
a = \"\" : b = \"\"
VBS Set objFSO = CreateObject(\"Scripting.FileSystemObject\")
//创建fso对象
VBS myfolder = objFSO.FolderExists(path)
//判断文件夹是否存在
If myfolder = true
    //如果存在
    VBS Set objFolder = objFSO.GetFolder(path)
    //返回文件夹对象
    VBSCall RunApp(\"notepad\")
    Delay 500
    SayString \"创建日期: \" & objFolder.DateCreated & vbcr
    SayString \"最后访问日期: \" & objFolder.DateLastAccessed & vbcr
    SayString \"最后更改日期: \" & objFolder.DateLastModified & vbcr
    SayString \"所在磁盘: \" & objFolder.Drive & vbcr
    SayString \"是否根文件夹(返回布尔值): \" & objFolder.IsRootFolder & vbcr
    SayString \"文件夹名称(不包含路径): \" & objFolder.Name & vbcr
    SayString \"该文件夹的父文件夹名称: \" & objFolder.ParentFolder & vbcr
    SayString \"文件夹路径: \" & objFolder.Path & vbcr
    SayString \"文件夹大小: \" & Round(cstr(objFolder.Size/1048576),2) & \" MB\" & vbcr
    SayString \"文件夹描述: \" & objFolder.Type & vbcr
    SayString \"包含子文件夹数量: \" & objFolder.SubFolders.count & vbcr
    SayString \"包含文件数量: \" & objFolder.Files.count & vbcr &vbcr
    If objFolder.SubFolders.count > 0
        VBSBegin 
            \'列举所有子文件夹名称
            Set colSubfolders = objFolder.Subfolders
            For Each objSubfolder in colSubfolders
            a = a & objSubfolder.Name & vbcr
            Next
        VBSEnd 
        SayString \"包含子文件夹名称:\" & vbcr & a &vbcr
    EndIf 
    If objFolder.Files.count > 0
        VBSBegin 
            \'列举所有文件名称
            Set colFiles = objFolder.Files
            For Each objFile in colFiles
            b = b & objFile.Name & vbcr
            next
        VBSEnd 
        SayString \"包含文件名称:\" & vbcr & b
    EndIf 
Else 
    MessageBox 未找到指定文件夹
EndIf 
EndScript 
分享

    最新评论：



评论文本（10-200个字符）超出部分会被自动删除.
刷新 点击图片刷新验证码，防止恶意攻击，验证码刷新延时5秒！
广告2