vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
NEU! sevCoolbar 2.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2015
 
zurück
Rubrik: Dateisystem13.07.01
FindClose-Funktion

Diese Funktion gibt die Ressourcen und den Dateihandle der FindFirstFile-Funktion wieder frei.

Betriebssystem:  Win95, Win98, WinNT 3.1, Win2000, WinMEViews:  5.457 

Summer-Special bei Tools & Components!
Gute Laune Sommer bei Tools & Components
Top Summer-Special - Sparen Sie teilweise über 100,- EUR
Alle sev-Entwicklerkomponenten und Komplettpakete jetzt bis zu 25% reduziert!
zum Beispiel:
  • Developer CD nur 455,- EUR statt 569,- EUR
  • sevDTA 2.0 nur 224,30 EUR statt 299,- EUR
  •  
  • vb@rchiv   Vol.6 nur 18,70 EUR statt 24,95 EUR
  • sevCoolbar 3.0 nur 58,70 EUR statt 69,- EUR
  • - Werbung -Und viele weitere Angebote           Aktionspreise nur für kurze Zeit gültig

    Deklaration:

    Declare Function FindClose Lib "kernel32.dll" (ByVal hFindFile As Long) As Long

    Beschreibung:
    Diese Funktion gibt die Ressourcen und den Dateihandle der FindFirstFile-Funktion wieder frei.

    Parameter:
    hFindFileErwartet den Handle, der über die FindFirstFile-Funktion ermittelt wurde.

    Rückgabewert:
    keine


    Beispiel:

    Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" 
      (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
    Private Declare Function FindNextFile Lib "kernel32" _
      Alias "FindNextFileA" ( _
      ByVal hFindFile As Long, _
      lpFindFileData As WIN32_FIND_DATA) As Long
    Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
     
    Private Const MAX_PATH = 260
    Private Const INVALID_HANDLE_VALUE = -1
     
    Private Type FILETIME
      dwLowDateTime As Long
      dwHighDateTime As Long
    End Type
     
    Private 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
    ' Nach allen Dateien und Ordnern inerhalb eines Verzeichnisses suchen
    Private Sub Command1_Click()
      Dim Found As WIN32_FIND_DATA, Retval As Long, hFile As Long
     
      ' Suchen nach der ersten Datei
      hFile = FindFirstFile("c:\windows\*.*", Found)
     
      ' Wenn keine Datei vorhanden, Vorgang abbrechen
      If hFile = INVALID_HANDLE_VALUE Then
        MsgBox "Dieses Verzeichnis enthält keine Dateien oder Ordner",  _
          vbInformation, "Suche Abbrechen"
        Exit Sub
      End If
     
      Do
        Select Case CBool(Found.dwFileAttributes And vbDirectory)
          Case True ' Ordner
            Debug.Print "Ordner gefunden: " & Left$(Found.cFileName, InStr(1,  _
              Found.cFileName, vbNullChar) - 1)
          Case False ' Datei
            Debug.Print "Datei gefunden: " & Left$(Found.cFileName, InStr(1,  _
              Found.cFileName, vbNullChar) - 1)
        End Select
     
        ' Nach der nächsten Datei suchen
        Retval = FindNextFile(hFile, Found)
        DoEvents
      Loop Until Retval = 0
      FindClose hFile
    End Sub

    Diese Seite wurde bereits 5.457 mal aufgerufen.

    nach obenzurück
     
       

    Druckansicht Druckansicht Copyright ©2000-2015 vb@rchiv Dieter Otter
    Alle Rechte vorbehalten.
    Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

    Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel