VB 5/6-Tipp 0364: Verzeichnisse ohne API, mittels Dir$ einlesen

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Listen-Steuerelement "List1"
' Steuerelement: Schaltfläche "Command1"

Option Explicit

Private Const Attr = vbNormal Or vbReadOnly Or vbHidden Or _
             vbSystem Or vbVolume Or vbDirectory Or _
             vbArchive
               
Private Sub Command1_Click()
    On Error Resume Next
    Dim Pfad As String, Name As String
    Dim x As Long
    
    MousePointer = vbHourglass
    Pfad = "c:\"
    Name = Dir$(Pfad, Attr)
    List1.Clear
    
    Do While Name <> ""
        If Name <> "." And Name <> ".." Then
            x = GetAttr(Pfad & Name)
            
            If (x And vbDirectory) <> 0 Then
                List1.AddItem "." & UCase(Name)
            Else
                List1.AddItem LCase(Name)
            End If
      End If
      
      Name = Dir(, Attr)
    Loop
    
    MousePointer = vbDefault
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------

Msgbox "", "", vbOK Or vbInformation

Const a = 10&
Const b = 20&
Const c = 30&
Const d = 40&
Const e = 50&

Const test1 = a Or b Or c Or d Or e
Const test2 = a & b & c & d & e

Private Sub Form_Load()
    MsgBox CStr(test1) & vbCrLf & CStr(test2)
End Sub

Const Attr = vbNormal Or vbReadOnly Or vbHidden Or _
             vbSystem Or vbVolume Or vbDirectory Or _
             vbArchive

Const Attr = vbNormal & vbReadOnly & vbHidden & _
             vbSystem & vbVolume & vbDirectory & _
             vbArchive