Вот может кому понадобится... вроде проблемку собой поставленую решил на API

Замечание к документу "Может кто поможет ?" >>>

Тема: Вот может кому понадобится... вроде проблемку собой поставленую решил на API

Создан:

Илья В Крачковский; Belpsbsrv 09/10/2002 11:41 AM

Папка:
05. Notes APIs (C/DXL/etc), 06. Разработка Notes-приложений

Тип сообщения:
Мне лень заполнять это поле

Сообщение:

Const MAX_PATH=260
Const INVALID_HANDLE_VALUE= -1
%REM
Const FILE_ATTRIBUTE_ARCHIVE = &H20
Const FILE_ATTRIBUTE_COMPRESSED = &H800
Const FILE_ATTRIBUTE_HIDDEN = &H2
Const FILE_ATTRIBUTE_NORMAL = &H80
Const FILE_ATTRIBUTE_READONLY = &H1
Const FILE_ATTRIBUTE_SYSTEM = &H4
Const FILE_ATTRIBUTE_TEMPORARY = &H100
%ENDREM
Const FILE_ATTRIBUTE_DIRECTORY = &H10

Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type

Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (Byval lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (Byval hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Declare Function FindClose Lib "kernel32" Alias "FindClose" (Byval hFindFile As Long) As Long

Sub Click(Source As Button)
Dim hFile As Long
Dim lpszPath As String*256
Dim findData As WIN32_FIND_DATA
Dim path As String

path = Inputbox$("Enter searchPath:")
If (path <> "") Then
lpszPath= path & Chr(0)

hFile= FindFirstFile(lpszPath, findData)
If (hFile <> INVALID_HANDLE_VALUE) Then
Do
If (findData.dwFileAttributes <> FILE_ATTRIBUTE_DIRECTORY) Then
Print findData.cFileName
End If
Loop While (FindNextFile(hFile,findData))
Call FindClose(hFile)
End If
End If
End Sub

Иерархия документов данной дискуссии:
Может кто поможет ? (Илья В Крачковский; Designsrv) (30.08.2002 17:24:39)
.... Способ (Ilia Y. Kletser; NotesSrv400) (02.09.2002 14:59:34)
........ Этот способ не отличается изяществом :) надо копать в сторону API... ведь у меня таких вызовов может быть много, и тяжело будет потом вспоминать, откуда я пришёл, и куда дальше мне идти... (Илья В Крачковский; Belpsbsrv) (02.09.2002 18:01:52)
............ "Шашечки" ?.. :) (-) (Denis U. Ivanov; NotesSrv400) (05.09.2002 13:10:57)
.... А какие файлы собираем? Не базы, случаем? (+) (Grigory A. Brumberg; NotesSrv400) (30.08.2002 18:22:04)
........ Нет собираем обыкновенные текстовые файлы с локального диска в указанной директории, причём желателен отбор по маске... (Илья В Крачковский; Belpsbsrv) (02.09.2002 10:31:57)
.... А я бы залудил как раз массив или лучше список (+) (Oleg G. Taranchenko; NotesSrv400) (05.09.2002 14:43:05)
.... Вот может кому понадобится... вроде проблемку собой поставленую решил на API (Илья В Крачковский; Belpsbsrv) (10.09.2002 11:41:42)

Разработчикам и администраторам: курсы, книги, сертификация