Function StartOfFile(strNameFile As String)
' для открытия любого файла его программой из VB6
' Вызывается так''StartOfFile ("C:\1_Текущее\proba.rtf")
Dim intResult As Integer
intResult = ShellExecute(0, "open", strNameFile, 0, 0, SW_SHOWNORMAL)
If intResult = 31 Then
MsgBox "Незарегестрированный тип файла"
End If
End Function
|