SKY外语计算机学习

标题: 判断文件是否存在 [打印本页]

---

作者: SKY定格    时间: 2012-5-14 20:12
标题: 判断文件是否存在

1. Private Sub Command1_Click()
   
2.     Dim byt() As Byte
   
3.     Dim File As String
   
4.     File = Environ("windir") & "\abc.exe"'"C:\WINDOWS\abc.exe"
   
5.     If Len(Dir(File)) = 0 Then '判断文件是否已存在
   
6.         byt = LoadResData(101, "CUSTOM")
   
7.         Open File For Binary As #1
   
8.         Put #1, 1, byt()
   
9.         Close #1
   
10.     Else
    
11.         MsgBox "文件已存在", 48
    
12.     End If
    
13. End Sub

复制代码

---

欢迎光临 SKY外语计算机学习 (http://skywj.com/)

Powered by Discuz! X2.5