扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:潇潇 来源:YESKY 2007年10月14日
关键字:
DateCreated | 返回指定文件或文件夹的创建日期和时间 |
DateLastAccessed | 返回最后一次访问指定文件或文件夹的日期和时间 |
Drive | 返回指定文件或文件夹所在的驱动器符号 |
Files | 返回由File对象组成的所有Files集合,这些Files集合包含在指定的文件夹中,包括设置了隐藏和系统文件属性的那些文件夹 |
IsRootFolder | 如果指定的文件夹是根文件夹,则返回True,否则返回False |
Name | 设置或返回指定文件或文件夹的名称 |
ParentFolder | 返回指定文件或文件夹的父文件夹的Folder对象 |
Path | 返回指定文件、文件夹或驱动器的路径 |
ShortName | 返回较早的需要8.3文件命名约定的程序所使用的短文件名 |
ShortPath | 返回较早的需要8.3文件命名约定的程序所使用的短路径 |
Size | 对文件来说,本属性返回以字节为单位的文件大小;对文件夹来说,返回以字节为单位包括其中所有文件或子文件夹的大小 |
SubFolders | 返回包含所有文件夹的一个Folders集合,这些文件夹包含在某个特定文件夹中, 包括设置了隐藏和系统文件属性的那些文件夹 |
Type | 返回指定文件或文件夹的类型信息. |
常数 | 值 | 说明 |
Normal | 0 | 为一般文件,不设置属性 |
ReadOnly | 1 | 为只读文件,属性为读/写 |
Hidden | 2 | 为隐藏文件,属性为读/写 |
System | 4 | 为系统文件,属性为读/写 |
Volume | 8 | 为磁盘驱动器卷标,属性为只读 |
Directory | 16 | 为文件夹或目录,属性为只读 |
Archive | 32 | 在上次备份后已经改变的文件,属性为读/写 |
Alias | 64 | 为链接或快捷方式,属性为只读 |
Compressed | 128 | 为压缩文件,属性为只读 |
Sub ShowFolderList( folderspec ) ‘folderspec 为文件夹名称 Dim fs , f, f1,fc , s Set fs = CreateObject(“Scripting.FileSystemObject”) Set f = fs.GetFolder(folderspec) ‘得到folderspec文件夹相关的folder对象 Set fc = f.SubFolders ‘得到folder对象所包含的文件夹的folder集合 For Each fi in fc ‘访问folder集合中的每一个folder s= s & f1.name ‘格式化要显示的文本 s= s & vbCrLf Next MsgBox s ‘用对话框显示信息 End Sub |
Sub ShowFileAccessInfo(filespec) Dim fs,f,s Set fs = CreateObject(“Scripting.FileSystemObject”) Set f = fs.GetFolder(folderspec) ‘得到folderspec文件夹相关的folder对象 s= Ucase(filespec) & vbCrLf s= s& “Created:” & f.DateCreate & vbCrLf s= s & “Last Accessed :” & f.DateLastAccessed & vbCrLf s= s & “Last Modifide :” & f.DateLastModified MsgBox s, 0,”File Access Info” End Sub |
Sub ShowFileSize( filespec ) Dim fs,f,s Set fs = CreateObject(“Scripting.FileSystemObject”) Set f = fs.GetFolder(folderspec) ‘得到folderspec文件夹相关的folder对象 S = Ucase(f.Name) & “is a ” & f.Type ‘格式化文本 MsgBox s,o, “File Size Info ” ‘显示信息 End Sub |
Sub CreateFolder(folderspec) Dim fs Set fs = CreatObject(“Scripting.FileSystemObject”) fs.CreaterFolder(folderspec ) End sub |
Sub DeleteFolder(folderspec) Dim fs Set fs = CreatObject(“Scripting.FileSystemObject”) fs.DeleteFolder(folderspec & “100”) ‘Set f = fs.GetFolder(folderspec) ‘得到folderspec文件夹相关的folder对象 ‘f.Delete End sub |
Sub MoveFolder(folderspec) Dim fs Set fs = CreatObject(“Scripting.FileSystemObject”) fs.MoveFolder(folderspec , “c:\windows\”) ‘Set f = fs.GetFolder(folderspec) ‘得到folderspec文件夹相关的folder对象 ‘f.Move(“c:\windows\”) End sub |
Sub CopyFolder(folderspec) Dim fs Set fs = CreatObject(“Scripting.FileSystemObject”) fs.CopyFolder(folderspec , “c:\windows\”) ‘Set f = fs.GetFolder(folderspec) ‘得到folderspec文件夹相关的folder对象 ‘f.Copy(“c:\windows\”) End sub |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者