"Eigene Dateien" bei NT-Benutzern ermitteln
(auch Win 9x)
(nur aktuelle Ebene)
Sub Verzeichnisse_auflisten()
Dim Pfad1, Name1, Anzahl
Pfad1 = "c:\" ' Pfad setzen.
Name1 = Dir(Pfad1, vbDirectory) ' Ersten Eintrag
abrufen.
Anzahl = 0
Do While Name1 <> "" ' Schleife beginnen.
' Aktuelles und übergeordnetes Verzeichnis ignorieren.
If Name1 <> "." And Name1 <> ".." Then
' Mit bit-weisem Vergleich sicherstellen, daß Name1 ein
' Verzeichnis ist.
If (GetAttr(Pfad1 & Name1) And vbDirectory) = vbDirectory Then
Anzahl = Anzahl + 1
ActiveSheet.Cells(Anzahl, 1) = Name1
'Eintrag nur anzeigen, wenn es sich um ein Verzeichnis handelt.
End If
End If
Name1 = Dir ' Nächsten Eintrag abrufen.
Loop
End Sub
Public Var1 As String
'Die mit Public definierten Variablen behalten auch nach der Makrolaufzeit ihren Wert
Sub Variablenwert_setzen()
If Var1 = "" Then Var1 = 0
Var1 = Var1 + 1
End Sub
Sub Variablenwert_abfragen()
MsgBox Var1
End Sub
(erster am Ende und letzter zuerst)
Dim x, y, z
x = ActiveCell.Value
For z = Len(x) To 1 Step -1
y = y & Right(x, 1)
x = Left(x, z - 1)
Next z
ActiveCell.Value = y
ActiveCell.Offset(1, 0).Select
End Sub
MsgBox Application.TemplatesPath
End Sub
