dosya kontrolü hakkında

[metinozlu]

Merhaba
makro dili ile "c sürücüsünde deneme.xls adlı excel kitabı var mı? nasıl kodlanır.


if c sürücüsünde deneme.xls var then

.....Kodlar


else

....kodlar

end if

 

[Recep İpek]

Aşağıdaki kodları deneyebilirmisiniz?

Sub Button1_Click()
adres = "C:deneme.xls"
kontrol = Dir(adres)
If kontrol = "" Then
MsgBox "Aradığınız dosya yok.", vbCritical + vbDefaultButton1 + vbOKOnly, "UYARI"
Else
MsgBox "Aradığınız dosya var.", vbCritical + vbDefaultButton1 + vbOKOnly, "UYARI"
'....
'.....
End If
End Sub

 

[metinozlu]

Teşekkürler sayın ripek
tam istediğim kod.
iyi çalışmalar