Skip to main content

AccessTr.neT


word excel powerpoint kurulumu kontrol edelim

word excel powerpoint kurulumu kontrol edelim

#1
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
@benbendedeilem
Son Düzenleme: 19/04/2012, 22:31, Düzenleyen: accessman.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
word excel powerpoint kurulumu kontrol edelim - Yazar: accessman - 19/04/2012, 22:29
Task