Xin hỏi về mở file

[chuongna37]

sub test()

if "C:\dowload\text.xlsx" = True then
   msgbox "file da co"
End if
end sub

chào mọi người ý mình muốn diễn đạt là ví dụ trong đường dẫn trên đã có file text.xlsx rồi thì sẽ hiện thông báo file đã có ạ , mong được mọi người giúp đỡ

 

[lyly]

Sub Ktfile ()

Dim strFileName As String
Dim strFileExists As String

strFileName = "C:\Users\Nikola\Desktop\VBA articles\Test File Exists.xlsx"
strFileExists = Dir(strFileName)

If strFileExists = "" Then
MsgBox "file chua co”
Else
MsgBox “file da co “
End If

End Sub

 

[phuongnamhp92]

Chia sẻ thêm
Dim IO As New FileSystemObject
MsgBox "File Exists is:=" & IO.FileExists("C:\dowload\text.xlsx")

 

[chuongna37]

Sub Ktfile ()

Dim strFileName As String
Dim strFileExists As String

strFileName = "C:\Users\Nikola\Desktop\VBA articles\Test File Exists.xlsx"
strFileExists = Dir(strFileName)

If strFileExists = "" Then
MsgBox "file chua co”
Else
MsgBox “file da co “
End If

End Sub

cảm ơn tiền bối rất nhiều ạ !

 

[chuongna37]

Chia sẻ thêm
Dim IO As New FileSystemObject
MsgBox "File Exists is:=" & IO.FileExists("C:\dowload\text.xlsx")

cũng rất cảm ơn tiền bối ạ , nhưng máy mac ko chạy dc hàm này ạ

 

[HUONGLIEN7214]

sub test()

if "C:\dowload\text.xlsx" = True then
   msgbox "file da co"
End if
end sub

chào mọi người ý mình muốn diễn đạt là ví dụ trong đường dẫn trên đã có file text.xlsx rồi thì sẽ hiện thông báo file đã có ạ , mong được mọi người giúp đỡ

Thử hàm UDF này xem sao

Function FileExists(sFullPath As String) As Boolean
  FileExists = CBool(Len(Dir$(sFullPath)) > 0)
End Function

 

[chuongna37]

Thử hàm UDF này xem sao

Function FileExists(sFullPath As String) As Boolean
  FileExists = CBool(Len(Dir$(sFullPath)) > 0)
End Function

cảm ơn tiền bối em đã làm được rồi ạ