Unter Win 32/NT kann folgender MapBasic-Code verwendet werden, um der Reihe nach alle Dateien eines Verzeichnisses "anzupacken". In dem Beispiel wird nach allen DLL-Files im WinNT\System32-Verzeichnis gesucht.

Include "MapBasic.def"

Define MAX_PATH 260
Define ERROR_NO_MORE_FILES 18
Define INVALID_HANDLE_VALUE -1

Type FILETIME
        dwLowDateTime As Integer
        dwHighDateTime As Integer
End Type

Type WIN32_FIND_DATA
        dwFileAttributes As Integer
        ftCreationTime As FILETIME
        ftLastAccessTime As FILETIME
        ftLastWriteTime As FILETIME
        nFileSizeHigh As Integer
        nFileSizeLow As Integer
        dwReserved0 As Integer
        dwReserved1 As Integer
        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 Integer

Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Integer, lpFindFileData As WIN32_FIND_DATA)
As Integer

Declare Function FindClose Lib "kernel32" Alias "FindClose" (ByVal hFindFile As Integer) As Integer

Declare Sub Main

Sub Main
  Dim hndl As Integer, fileinfo As WIN32_FIND_DATA

  hndl = FindFirstFile("c:\winnt\system32\*.dll", fileinfo)
  If hndl <> INVALID_HANDLE_VALUE Then
    Do
      Print fileinfo.cFileName
      If FindNextFile(hndl, fileinfo) <> 1 Then
        Exit Do
      End If
    Loop While TRUE
  End If
End Sub

Neuigkeiten und Anregungen senden Sie bitte an gis-news.de!