| Вопрос: Как отличить ARJ архив от DOC документа | Добавлено: 10.08.06 12:00 |
Автор вопроса:  Sergey
|
| Ответы | Всего ответов: 17 |
|
Номер ответа: 16 Автор ответа:  LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #16 | Добавлено: 10.08.06 15:33 |
|
Option Explicit Private Declare Function StgIsStorageFile Lib "ole32" (ByVal pwcsName As Long) As Long Private Const S_OK = &H0 Private Const S_FALSE = &H1 Private Const STG_E_FILENOTFOUND = &H80030002 Private Function isStorage(ByRef FileName As String) As Boolean Dim RetVal As Long FileName = "C:\GateStructure.doc" RetVal = StgIsStorageFile(StrPtr(FileName)) Select Case RetVal Case S_OK MsgBox "File is structured storage" isStorage = True Case S_FALSE MsgBox "Wrong file" Case STG_E_FILENOTFOUND MsgBox "File not found" End Select End Function Private Sub Form_Load() isStorage "C:\GateStructure.doc" End Sub |
||
|
Номер ответа: 17 Автор ответа: Sergey Вопросов: 5 Ответов: 10 |
Профиль | | #17 | Добавлено: 10.08.06 18:48 |
| Вот спасибочки помогло!!! | ||