dir("c:\io.sys",vbSystem + vbReadOnly + vbHidden )
解决方案 »
- 求助急......我VB的工具箱不见了,.,.. 在视图里面也没有 有没有什么快键户出工具箱...要了命了.....怎么干活啊
- 含类急求 winsosk + udp 传输大于8K的文件!!
- 请问vb中如何建立文件,在多级目录下?
- 请问如何绕开游戏对全局钩子的检测?
- 原创烂贴:使用API补VB中的一个不足
- 请问如何通过程序实现手工的 Shift + Delete 删除目录的操作?
- 高手们能不能告诉偶一下这个函数的用法(急)
- 怎样快速获得一个文件的句柄???
- 文件咋个打不开哟???你们来看看。。。。。
- 打开方式用错了,怎么换回来?
- 关机程序代码运行不了!
- 高手来!有个问题很奇怪,大家能帮我看看是为什么吗?
Private Function IsFileExist(ByVal BkPath As String, ByVal BkFile As String) As Boolean
'On Error GoTo errreport
Dim MyFile As String
MyFile = Dir(BkPath & BkFile)
IsFileExist = False
If UCase(MyFile) = UCase(BkFile) Then IsFileExist = True
Exit Function
errreport:
IsFileExist = False
End Function