Hallo Wissende,
ich bin dabei zu schauen ob man das Folgende auch in Excel-Vba benutzen kann:
http://www.activevb.de/tipps/vb6tipps/tipp0367.htm
Mit
’ Steuerelement: Verzeichnisauswahlliste „Dir1“
’ Steuerelement: Festplattenauswahlliste „Drive1“
komme ich nicht klar. Was ist das?
Auch der Befehl
Drive1.Drive = „C:“
ist mir suspect. Wenn ich die richtige Hilfe richtig verstanden habe brauch man dazu ein „Scripting.FileSystemObject“
Danke ^ Gruß
Reinhard
Hallo Reinhard,
ich bin dabei zu schauen ob man das Folgende auch in Excel-Vba
benutzen kann:
http://www.activevb.de/tipps/vb6tipps/tipp0367.htmMit
’ Steuerelement: Verzeichnisauswahlliste „Dir1“
’ Steuerelement: Festplattenauswahlliste „Drive1“
komme ich nicht klar. Was ist das?
Steuerelemente der Standard-Edition von VB. Die müsstest Du aus VB5 kennen.
Auch der Befehl
Drive1.Drive = „C:“
ist mir suspect.
Wieso? Damit wird für Drive1 das Laufwerk festgelegt.
Wenn ich die richtige Hilfe richtig
verstanden habe brauch man dazu ein
„Scripting.FileSystemObject“
FSO? Na ja, geht auch. Wenn Dir das Sympathisch ist, kannst Du’s verwenden. Ich verwende das nur in VBS, da geht es halt nicht anders.
Ich habe mir von dem Beispiel nur die Überschrift angesehen.
Es geht nur darum einen Verzeichnisbaum zu lesen, dafür haben wir doch einen schnellen Code in den FAQ. Du kannst natürlich auch den Code mit FSO aus der Hilfe zu VBS: Script56.chm nehmen. Da ist die Rekursuion auch schon fertig. Copy and paste. Der ist nur langsamer, macht sonst das Selbe.
Wenn Du doch mal etwas mit VB.NET bauen willst, das geht in VB.NET deutlich besser und einfacher. Da gibt es ein Steuerelement, das Dir bei einer Veränderung im überwachten Verzeichnis ein Ereignis auslöst. 
Gruß Rainer
Hallo Reinhard,
Du kannst Dir für Excel ja auch eine eigene Drive-Box basteln, viel etwas anderes als … ist es nicht.
Option Explicit
Private Declare Function GetLogicalDrives Lib "kernel32" () As Long
Private Sub Command1\_Click()
Dim LDs As Long, Cnt As Long, sDrives As String
LDs = GetLogicalDrives
For Cnt = 0 To 25
If (LDs And 2 ^ Cnt) 0 Then
Combo1.AddItem Chr$(65 + Cnt) & ":"
End If
Next Cnt
Text1.Text = sDrives
Combo1.ListIndex = 0
End Sub
Gruß Rainer
Option Explicit
Private Declare Function GetLogicalDrives Lib „kernel32“ () As
Long
Private Sub Command1_Click()
Dim LDs As Long, Cnt As Long, sDrives As String
LDs = GetLogicalDrives
For Cnt = 0 To 25
If (LDs And 2 ^ Cnt) 0 Then
Combo1.AddItem Chr$(65 + Cnt) & „:“
End If
Next Cnt
Text1.Text = sDrives
Combo1.ListIndex = 0
End Sub
Hallo Rainer,
danke dir, habe sie jetzt gefunden, sie waren in der Werkzeugleiste, da hatte ich sie nicht vermutet
Gut, in Vba gibts die nicht. Dein Code läuft ja auch in Vba prima.
Noch gar nicht gesagt daß ich alle Features von Vb-Fun übernehme, primär geht es erstmal darum ein bestimmtes Verzeichnis zu überwachen, dann bei Dateiänderungen dort Code zu starten.
Gruß
Reinhard
Hallo Reinhard,
Noch gar nicht gesagt daß ich alle Features von Vb-Fun
übernehme, primär geht es erstmal darum ein bestimmtes
Verzeichnis zu überwachen, dann bei Dateiänderungen dort Code
zu starten.
in dem Teil, in dem da die Steuerelemente ‚Drive‘ und ‚Dir‘ verwendet wurdem geht es nur darum, das Verzeichnis, das überwacht werden soll zu Laufzeit auszuwählen.
Wenn Du vorher weißt, welches Verzeichnis überwachst werden soll, baruchst Du die ja gar nicht.
Gruß Rainer