VB如何隐藏多个文件,
VB如何隐藏多个文件,我用以下这段代码,有时候后能隐藏,有时候又不能隐藏,三个文件
Private Sub Command1_Click()
Dim fs, f, r
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("c:\1.txt")
f.Attributes = f.Attributes + 2
f.Attributes = f.Attributes + 4
Set f = fs.GetFile("c:\2.txt")
f.Attributes = f.Attributes + 2
f.Attributes = f.Attributes + 4
Set f = fs.GetFile("c:\3.txt")
f.Attributes = f.Attributes + 2
f.Attributes = f.Attributes + 4
end sub
还又怎么删除隐藏的这几个文件,
用KILL “1.TXT”删除不了
学习
我用以下这段代码,有时候后能隐藏,有时候又不能隐藏,三个文件
可以使用API函数SetFileAttributes来设置文件为隐藏的。
相关问答:
我有厂家做的ASP的监控录像(DVR)的局域网播放的源程序与控件,想要用ASP.net做一个视频回放的程序(利用他的控件)但不知如下去做,望各位指点。
先搞清楚他们的控件是怎么用的,
然后就直接用好了.
不过,如 ......
Printer.ScaleMode = 6
6表示毫米
Printer.PaperSize = vbPRPSA4
'初始坐标
x = 1
y = 4
'最大的线筐
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
要用vb打印一条线,长度是100毫米怎么写?
关注
VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)
Printer.ScaleMode = vbMillimeters
Print ......
VB偶学得不错,现在大一,高三的时候就学VB了,现在学校里都是学C#和VB.NET的兄弟多。。。
偶要转行VB.NET了~当年学VB学了2年,对VB里面的常用函数都十分了解。
Select、If结构、For Next循环、等都了解。。。 ......
在vb这编程里似乎有很多的东西是相联系的,为什么有些人对vb的编程摸不到头脑啊!并且有些事很容易的,但是却把它们的代码变成复杂,也去想一些不能实现的东西啊!
没分了,楼主多来点分!
来接点分
......