c:\test\aaa.xls çalışmakitabı varmı? yokmu

[hsayar]

Dosya = "c:\test\aaa.xls"

if Dosya=var Then
msgbox "dosya var"
Else msgbox "dosya yok"
End if

Gibi birşey ama nasıl

 

[N.Ziya Hiçdurmaz]

yanıt

Sub dosya_ara()
Dim ds, a
Set ds = CreateObject("Scripting.FileSystemObject")
a = ds.FileExists("C:\test.txt")
If a = True Then
MsgBox "Bu isimde bir dosya var"
Else
MsgBox "Bu isimde bir dosya yok"
End If
End Sub

 

[Orion1]

Alternatif.

Sub dosya_varmi()
If Dir("C:\test.txt") = "" Then
    MsgBox "Dosya Yok.!"
    Else
    MsgBox "Dosya Var.!"
End If
End Sub

 

[hsayar]

İlginize Teşekkür ederim ilave olarak sormak istediğim bir şey var
Dosya Yolu ve dosya adı bir değişken

Dosya Yolu: Thisworkbook.Path\Sayfa1!a1 hücresi
Dosya Adı: Sayfa1!a2 hücresi

Diyelim ki:
Thisworkbook.Path: c:\çkkontrol
a1=Denemeçk
a2= Test

aranacak dosya c:\çkkontrol\denemeçk\test.xls

olacak bu durumda nasıl bir kod uygulanmalı

 

[Levent Menteşoğlu]

Aşağıdaki gibi kullanabilirsiniz.

Thisworkbook.Path & "\" & [sayfa1!a1] & "\" & [sayfa1!a2] & ".xls"

 

[hsayar]

teşekkürler

 

[baydeniro]

Paylaşım İçin Teşekkürler

Sayın üstatlar, paylaşım için teşekkürler.