重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Option Explicit
为达川等地区用户提供了全套网页设计制作服务,及达川网站建设行业解决方案。主营业务为网站制作、网站设计、达川网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!
Private Sub Command1_Click()
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("C:\新建 文本文档.txt")
Print f.Attributes
'0 一般文件。未设置属性。
'1 只读文件。属性为读/写。
'2 隐藏文件。属性为读/写。
'4 系统文件。属性为读/写。
'8 磁盘驱动器卷标。属性为只读。
'16 文件夹或目录。属性为只读。
'32 自上次备份后已经改变的文件。属性为读/写。
'64 链接或快捷方式。属性为只读。
'128 压缩文件。属性为只读。
Print f.DateCreated
'返回指定文件或文件夹的创建日期和时间?只读?
Print f.DateLastAccessed
'返回最后一次访问指定文件或文件夹的日期和时间。只读。
Print f.DateLastModified
'返回最后一次修改指定文件或文件夹的日期和时间?只读?
Print f.Name
'设置或返回指定的文件或文件夹的名称。可读写。
Print f.Path
'返回指定文件、文件夹或驱动器的路径。
Print f.Size
'对于文件,返回指定文件的字节数;对于文件夹,返回该文件夹中所有文件和子文件夹的字节数。
End Sub
上面的就包括所有属性了,如果想要弹出窗口要自己做个窗口,把上面的属性排列上去
有的系统文件夹是不让删除文件的,要删除就要进入DOS 或 PE系统下了, 你想清的 是哪个文件夹 说下
Vb.net获取某个目录下文件夹名称(不包含隐藏文件夹)实现代码如下:
Dim dir As New DirectoryInfo("D:\")
For Each d As DirectoryInfo In dir.GetDirectories
ComboBox1.Items.Add(d.Name)
Next
dim finfo as new fileinfo(d.name)
if (finfo.attributes and FileAttributes.Hidden)FileAttributes.Hidden then
ComboBox1.Items.Add(d.Name)
end if