API, открытие файла

[Chuvak]

есть ли какая-нибудь апи для открытия файла.
охото обойтись без mscommondialog

[ED HUNTER]

Open filename For mode [Acses acses],[lock]_as [#]filenumber [len=reclenth]

mode- режим открытия файла Binary,Input, Output , Random

acses- доступ Read,Write,ReadWrite

lock- можно ли использовать др. приложениям данный файл пока ты с ним работаешь... Lock write, Lock Read, lock Read Write.

filenumber - дискриптор файла. Получаем с помощью ф-ии FreeFile

reclenth- длинна записи.

УсЁ

vbmaker@mail.ru

[Rainbow]

Да
GetOpenFileName, которая принимает структуру OpenFileName

[Chuvak]

Код: Выделить всё

Open filename For mode [Acses acses],[lock]_as [#]filenumber [len=reclenth]


я хотел написать окошко для выбора файла

[RayShade]

А что стандартных средств мало? Например dirlistbox+filelistbox+drivelistbox вот и получится у тебя свое окошко

[gaidar]

Вообще-то это делается так:

Код: Выделить всё

Private Sub ShowFileDialog(ByVal iAction As Integer)
Dim tOpenFile As OpenFilename
Dim lMaxSize As Long
Dim sFileNameBuff As String
Dim sFileTitleBuff As String

On Error GoTo ShowFileDialogError

'инициализация буфера
iAction = iAction 'Action property
lApiReturn = 0 'APIReturn property
lExtendedError = 0 'ExtendedError property
tOpenFile.lStructSize = Len(tOpenFile)
tOpenFile.hwndOwner = lhdc
'Замена "|" на Chr(0)
tOpenFile.lpstrFilter = sAPIFilter(sFilter)
tOpenFile.iFilterIndex = iFilterIndex
'определение размера буфера от свойства MaxFileSize
If lMaxFileSize > 0 Then
lMaxSize = lMaxFileSize
Else
lMaxSize = 255
End If

sFileNameBuff = sFileName
'заполнение пробелами до 255
While Len(sFileNameBuff) < lMaxSize - 1
sFileNameBuff = sFileNameBuff & " "
Wend
'обрежем до длины lMaxFileSize - 1
If lMaxFileSize = 0 Then
sFileNameBuff = Mid$(sFileNameBuff, 1, lMaxSize - 1)
Else
sFileNameBuff = Mid$(sFileNameBuff, 1, lMaxFileSize    - 1)
End If

'установим в конце нулевой знак
sFileNameBuff = sFileNameBuff & Chr$(0)
tOpenFile.lpstrFile = sFileNameBuff
If lMaxFileSize <> 255 Then
tOpenFile.nMaxFile = 255
End If

  'операции, аналогичные вышеисполненным

sFileTitleBuff = sFileTitle
While Len(sFileTitleBuff) < lMaxSize - 1
sFileTitleBuff = sFileTitleBuff & " "
Wend
If lMaxFileSize = 0 Then
sFileTitleBuff = Mid$(sFileTitleBuff, 1, lMaxSize -1)
Else
sFileTitleBuff = Mid$(sFileTitleBuff, 1, lMaxFileSize- 1)
End If
sFileTitleBuff = sFileTitleBuff & Chr$(0)
tOpenFile.lpstrFileTitle = sFileTitleBuff
tOpenFile.lpstrInitialDir = sInitDir
tOpenFile.lpstrTitle = sDialogTitle
tOpenFile.Flags = lFlags
tOpenFile.lpstrDefExt = sDefaultExt

'выполним GetOpenFileName API-функцию
Select Case iAction
Case 1 'ShowOpen
lApiReturn = GetOpenFileName(tOpenFile)
Case 2 'ShowSave
lApiReturn = GetSaveFileName(tOpenFile)
Case Else
Exit Sub
End Select

m_cancelled = False
'Возвращение дескриптора от API-функции GetOpenFileName     
Select Case lApiReturn
Case 0 'нажата кнопка Cancel
'генерация ошибки
m_cancelled = True
Exit Sub
Case 1 'пользователь выбрал или ввел файл
'Используем внутреннюю процедуру sLeftOfNull
'для получения пути и имени файла
sFileName = sLeftOfNull(tOpenFile.lpstrFile)
sFileTitle = sLeftOfNull(tOpenFile.lpstrFileTitle)
Case Else 'если произошла ошибка вызываем CommDlgExtendedError
lExtendedError = CommDlgExtendedError
End Select

Exit Sub

ShowFileDialogError:
Exit Sub

End Sub

Смотри здесь: http://vbstreets.ru/default.asp?page=li ... d=textfile