|
Private Declare Function SHPathIsExe Lib "shell32" Alias "#43" (ByVal szPath As String) As Long
Private Sub Form_Load()
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
MsgBox "Is path EXEC?" + Str$(SHPathIsExe("c:\autoexec.bat"))
End Sub
|
|