dosya var mı yok mu ?

[blackkugu]

dosya_yolu = ThisWorkbook.Path & "\" & Range("Y27").Value & "\"
dosya_adı = ActiveCell.Value & Range("Y31").Value

If Workbooks.Open(dosya_yolu & dosya_adı) = True Then
MsgBox "Dosya var"
Else
MsgBox "Dosya yok"
End If


" If Workbooks.Open(dosya_yolu & dosya_adı) = True Then" bu satırı sarı olarak gösteriyor hata veriyor ama dosya yok mesajı olarak yazdırmak istiyorum. Neden olmuyor ki ? çözemedim bir türlü.

 

[blackkugu]

Dim fso As Object
Dim filePath As String

dosya_yolu = ThisWorkbook.Path & "\" & Range("Y27").Value & "\"
dosya_adı = ActiveCell.Value & Range("Y29").Value

' dosya yolu ve adını belirle
filePath = dosya_yolu & dosya_adı

' FileSystemObject nesnesini oluştur
Set fso = CreateObject("Scripting.FileSystemObject")

' dosyanın var olup olmadığını kontrol et
If fso.FileExists(filePath) Then
' dosya varsa aç
Set wb = Workbooks.Open(dosya_yolu & dosya_adı)
Else
' dosya yoksa hata mesajı göster
MsgBox dosya_adı & " Sınıfının dosyası bulunamadı!"
Exit Sub
End If
Set fso = Nothing

chatgpt ye yazdırdım yaptı )) tşk ler