Skip to main content

AccessTr.neT


Etiketler
Yazar: accessman - Cevaplar: 4 - İzleme: 3435
word excel powerpoint kurulumu kontrol edelim
bunu başka bir siteden almıştım

[code]
'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")