判断文件是否存在

SKY定格

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

复制代码