- Katılım
- 31 Aralık 2005
- Mesajlar
- 4,400
- Excel Vers. ve Dili
- Office 365 (64 bit) - Türkçe
En kestirme yolu Sn. Haluk ifade etmiş.
Referans olsun istiyorsunuz, biraz daha açayım.
Referansı alınacak dosyaların nerelerde bulunduğunu biliyoruz. Sistem klasörü, CommonFiles, uygulama klasörü gibi. Her dosyaya ayrı "Dir" çekerek bu denetim kolaylıkla yapılır.
"Referansların hepsi işaretli" derken eklenecek referansların daha önce işaretli olup olmadığına bakmaksızın işaretlenme işlemini kastetmiştim.
Dosya varlığını sorgulama örneği:
ADO;
Outlook;
Referans olsun istiyorsunuz, biraz daha açayım.
Referansı alınacak dosyaların nerelerde bulunduğunu biliyoruz. Sistem klasörü, CommonFiles, uygulama klasörü gibi. Her dosyaya ayrı "Dir" çekerek bu denetim kolaylıkla yapılır.
"Referansların hepsi işaretli" derken eklenecek referansların daha önce işaretli olup olmadığına bakmaksızın işaretlenme işlemini kastetmiştim.
Dosya varlığını sorgulama örneği:
ADO;
Kod:
a = Dir(Environ$("CommonProgramFiles") & "\system\ado\msado15.dll")
if a = "" Then EndOutlook;
Kod:
b = Dir(Application.Path & "\msoutl.olb")
if b = "" then End