AccessTr.neT

AccessTr.neT > Microsoft Access > Access Örnekleri ve Uygulamaları > word excel powerpoint kurulumu kontrol edelim
Tam Versiyon: word excel powerpoint kurulumu kontrol edelim
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.

accessman

19/04/2012, 22:29
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

Yandemir

19/04/2012, 22:51
If Len(Dir("c:\PyramiD\Deneme.mdb")) = 0 Then MsgBox "Program kurulu değil" Else MsgBox "Program kurulu"

accessman

19/04/2012, 23:14
teşekkürler
nerde olduğunu bilmiyorsak
bilgisayarda herhangi bir yerde kurulumu diye

accessman

19/04/2012, 23:26
MsgBox Environ("Path")
yazınca bu çıktı

[Resim: 13348671731.jpg]

Yandemir

19/04/2012, 23:44
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.
AccessTr.neT > Microsoft Access > Access Örnekleri ve Uygulamaları > word excel powerpoint kurulumu kontrol edelim