vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Ein schnelles Beispiel 
Autor: ModeratorDieter (Moderator)
Datum: 16.04.02 15:53
Hi Boris,

aus den beiden bereits genannten Tipps habe ich eben mal schnell was zusammengeproggt.
Benötigt wird ein Formular mit zwei ListBoxen List_OK und List_Fail, sowie ein CommandButton Command1 zum Starten des Durchlaufs.

Hier der vollständige Form-Code: 
<code><font color=#000099>Option</font> <font color=#000099>Explicit</font>
 
<font color=#000099>Dim</font> FSO <font color=#000099>As</font> _
  FileSystemObject
<font color=#000099>Const</font> lngMaxSize = 20000      <font color=green>' in 
' KBytes</font>
 
<font color=green>' Rekursive Funktion zum Ermitteln aller</font>
<font color=green>' Ordner und Unterordner</font>
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> _
  FSO_GetAllFolders(<font color=#000099>ByVal</font> sPath <font _
  color=#000099>As</font> <font color=#000099>String</font>)
 
  <font color=#000099>Dim</font> Folder <font color=#000099>As</font> Folder
  <font color=#000099>Dim</font> SubFolder <font color=#000099>As</font> Folder
 
  <font color=green>' Ggf. abschliessenden Backslash anfügen</font>
  <font color=#000099>If</font> Right$(sPath, 1) <> "\" <font _
    color=#000099>Then</font> sPath = sPath & "\"
 
  <font color=#000099>Set</font> Folder = FSO.GetFolder(sPath)
 
  <font color=green>' Größe ermitteln</font>
  <font color=#000099>If</font> Folder.Size  1024 > lngMaxSize <font _
    color=#000099>Then</font>
    List_Fail.AddItem sPath & Folder.Name
  <font color=#000099>Else</font>
    List_OK.AddItem sPath & Folder.Name
  <font color=#000099>End</font> <font color=#000099>If</font>
 
  <font color=green>' Ggf. Fehler "Zugriff verweigert" ignorieren</font>
  <font color=#000099>On</font> Local <font color=#000099>Error</font> Resume _
    <font color=#000099>Next</font>
 
  <font color=green>' Unterordner lesen</font>
  <font color=#000099>If</font> Folder.SubFolders.Count > 0 <font _
    color=#000099>Then</font>
    <font color=#000099>For</font> Each SubFolder In Folder.SubFolders
      <font color=green>' Hier wird die Funktion REKURSIV aufgerufen,</font>
      <font color=green>' um alle weiteren Unterordner des SubFolders</font>
      <font color=green>' zu ermitteln</font>
      FSO_GetAllFolders sPath & SubFolder.Name
    <font color=#000099>Next</font>
  <font color=#000099>End</font> <font color=#000099>If</font>
<font color=#000099>End</font> <font color=#000099>Sub</font>
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> _
  Command1_Click()
  <font color=#000099>Dim</font> sPath <font color=#000099>As</font> <font _
  color=#000099>String</font>
 
  <font color=green>' Alle Unterverzeichnisse lesen und in einer</font>
  <font color=green>' ListBox anzeigen</font>
  List_OK.Clear
  List_Fail.Clear
 
  <font color=green>' FileSystemObject initialisieren</font>
  <font color=#000099>Set</font> FSO = <font color=#000099>New</font> _
    FileSystemObject
 
  <font color=green>' Start-Ordner</font>
  Screen.MousePointer = vbHourglass
  sPath = "d:	emp"
  FSO_GetAllFolders sPath
  Screen.MousePointer = vbNormal
<font color=#000099>End</font> <font color=#000099>Sub</font></code>
Cu
Dieter
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Nochmal kurz zu den Ordnern 80Boris Huemer16.04.02 14:02
Tipps & Tricks266ModeratorDieter16.04.02 14:38
Re: Tipps & Tricks65Boris Huemer16.04.02 14:42
Ein schnelles Beispiel326ModeratorDieter16.04.02 15:53

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 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