+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: word excel powerpoint kurulumu kontrol edelim (/konu-word-excel-powerpoint-kurulumu-kontrol-edelim.html)
word excel powerpoint kurulumu kontrol edelim - accessman - 19/04/2012
bunu başka bir siteden almıştım
Kod:
'word için
If Len(Dir(Left(Environ("Path"), _
InStr(1, Environ("Path"), ";") - 1) & "WINWORD.exe")) = 0 Then _
MsgBox "word kurulu değil." Else: MsgBox "word kurulu"
'excel için
If Len(Dir(Left(Environ("Path"), _
InStr(1, Environ("Path"), ";") - 1) & "EXCEL.exe")) = 0 Then _
MsgBox "EXCEL kurulu değil." Else: MsgBox "EXCEL kurulu"
'POWERPOINT için
If Len(Dir(Left(Environ("Path"), _
InStr(1, Environ("Path"), ";") - 1) & "POWERPNT.exe")) = 0 Then _
MsgBox "POWERPOINT kurulu değil." Else: MsgBox "POWERPOINT kurulu"bunu herhangi bir program için kullanabilirmiyiz
mesela
denem.mdb
varmı diye
Cvp: word excel powerpoint kurulumu kontrol edelim - Yandemir - 19/04/2012
If Len(Dir("c:\PyramiD\Deneme.mdb")) = 0 Then MsgBox "Program kurulu değil" Else MsgBox "Program kurulu"
Cvp: word excel powerpoint kurulumu kontrol edelim - accessman - 19/04/2012
teşekkürler
nerde olduğunu bilmiyorsak
bilgisayarda herhangi bir yerde kurulumu diye
Cvp: word excel powerpoint kurulumu kontrol edelim - accessman - 19/04/2012
MsgBox Environ("Path")
yazınca bu çıktı
![[Resim: 13348671731.jpg]](https://resim.accesstr.net/uploads/13348671731.jpg)
Cvp: word excel powerpoint kurulumu kontrol edelim - Yandemir - 19/04/2012
Environ("Path") komutu bilgisayarın birşeyler çalışıtırdığınızda ilk arayacağı yerlerin listesini verir. bu klasörlerde bulunan dosyaları çalıştırır öncelikle yani.