易截截图软件、单文件、免安装、纯绿色、仅160KB

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.net(vb)播放监控录像的问题

我有厂家做的ASP的监控录像(DVR)的局域网播放的源程序与控件,想要用ASP.net做一个视频回放的程序(利用他的控件)但不知如下去做,望各位指点。
先搞清楚他们的控件是怎么用的,
然后就直接用好了.
不过,如 ......

vb打印问题


Printer.ScaleMode = 6
6表示毫米
Printer.PaperSize = vbPRPSA4

'初始坐标
x = 1
y = 4


'最大的线筐
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......

vb打印

要用vb打印一条线,长度是100毫米怎么写?
关注

VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)

    Printer.ScaleMode = vbMillimeters
    Print ......

从VB转行VB.NET~~~开始的时候如何学基础入门啊~

VB偶学得不错,现在大一,高三的时候就学VB了,现在学校里都是学C#和VB.NET的兄弟多。。。
偶要转行VB.NET了~当年学VB学了2年,对VB里面的常用函数都十分了解。
Select、If结构、For Next循环、等都了解。。。 ......

vb的成功之路 - 扩充话题 / 共享软件(走向海外)

在vb这编程里似乎有很多的东西是相联系的,为什么有些人对vb的编程摸不到头脑啊!并且有些事很容易的,但是却把它们的代码变成复杂,也去想一些不能实现的东西啊!




没分了,楼主多来点分!

来接点分

......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号