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")
|