hadoan-pap
Thành viên tiêu biểu
- Tham gia
- 8/7/15
- Bài viết
- 453
- Được thích
- 18
Em chào mọi người.
Em có 1 bài toán nhỏ như sau ạ.
Em lưu tự động 4 file trong folder với các tên : abc1, abc2, abc3, abc4.... Em muốn tạo chương trình để ấn nút nó sẽ kiểm tra và hiện thị lên thông báo nếu có bất cứ file nào không tồn tại trong folder.
Hiện em mới chỉ làm được với việc check từng file như đoạn code bên dưới... em muốn chương trinh check và đưa ra ngẫu nhiên thông báo với 1 file bất kỳ trong 4 file không tồn tại.
Rất mong mọi người hỗ trợ ạ.
Em xin cảm ơn!
Function FileExists(FilePath As String) As Boolean
Dim TestStr As String
TestStr = ""
On Error Resume Next
TestStr = Dir(FilePath)
On Error GoTo 0
If TestStr = "" Then
FileExists = False
Else
FileExists = True
End If
End Function
Sub Button2_Click()
Dim strFile As String
strFile = "C:\Users\Administrator\Desktop\Count File\File\abc1"
If FileExists(strFile) Then
'File Exists
Else
MsgBox "File abc1 not exists "
End If
End Sub
Em có 1 bài toán nhỏ như sau ạ.
Em lưu tự động 4 file trong folder với các tên : abc1, abc2, abc3, abc4.... Em muốn tạo chương trình để ấn nút nó sẽ kiểm tra và hiện thị lên thông báo nếu có bất cứ file nào không tồn tại trong folder.
Hiện em mới chỉ làm được với việc check từng file như đoạn code bên dưới... em muốn chương trinh check và đưa ra ngẫu nhiên thông báo với 1 file bất kỳ trong 4 file không tồn tại.
Rất mong mọi người hỗ trợ ạ.
Em xin cảm ơn!
Function FileExists(FilePath As String) As Boolean
Dim TestStr As String
TestStr = ""
On Error Resume Next
TestStr = Dir(FilePath)
On Error GoTo 0
If TestStr = "" Then
FileExists = False
Else
FileExists = True
End If
End Function
Sub Button2_Click()
Dim strFile As String
strFile = "C:\Users\Administrator\Desktop\Count File\File\abc1"
If FileExists(strFile) Then
'File Exists
Else
MsgBox "File abc1 not exists "
End If
End Sub