vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Zippen wie die Profis!  
 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

Fortgeschrittene Programmierung
Re: Alle Ordner die mit einer 
Autor: ModeratorDieter (Moderator)
Datum: 14.02.02 09:32
Hi IMAN,

folgender Vorschlag.
Die Löschfunktion selbst stammt aus folgenden Tipp:
 Alle Dateien/Ordner eines Ordners löschen

Hier kannst Du angeben, ob beim Löschen eine Meldung erscheinen soll, eine Fortschrittsanzeige usw. - oder ob alles still und leise vonstatten gehen soll.

Und hier der Code zum Ermitteln der Ordner: 
<code><font color=#000099>Dim</font> aOrdner() <font color=#000099>As</font> _
  <font color=#000099>String</font>
<font color=#000099>Dim</font> lCount <font color=#000099>As</font> <font _
color=#000099>Long</font>
<font color=#000099>Dim</font> sPath <font color=#000099>As</font> <font _
color=#000099>String</font>
<font color=#000099>Dim</font> sDirName <font color=#000099>As</font> <font _
color=#000099>String</font>
 
<font color=green>' Ausgangspfad</font>
sPath = "d:	emp	est\"
 
<font color=green>' alle Ordner ermitteln, die mit IPM beginnen</font>
sDirName = Dir(sPath & "IPM*.*", vbDirectory)
<font color=#000099>While</font> sDirName <> ""
  <font color=#000099>If</font> sDirName <> "." <font color=#000099>And</font> _
    sDirName <> ".." <font color=#000099>Then</font>
    <font color=#000099>If</font> (GetAttr(sPath & sDirName) <font _
    color=#000099>And</font> vbDirectory) = vbDirectory <font _
    color=#000099>Then</font>
      <font color=#000099>ReDim</font> Preserve aOrdner(lCount)
      aOrdner(lCount) = sPath & sDirName
      lCount = lCount + 1
    <font color=#000099>End</font> <font color=#000099>If</font>
  <font color=#000099>End</font> <font color=#000099>If</font>
  sDirName = Dir
<font color=#000099>Wend</font>
 
<font color=green>' Wurde etwas gefunden?</font>
<font color=#000099>If</font> lCount > 0 <font color=#000099>Then</font>
  <font color=green>' jetzt alle gefundenen Ordner löschen</font>
  <font color=green>' siehe Tipps & Tricks</font>
  SHDelete aOrdner(), Me.hWnd, <font color=#000099>True</font>, <font _
    color=#000099>True</font>, <font color=#000099>True</font>
<font color=#000099>End</font> <font color=#000099>If</font></code>
Cu
Dieter
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Alle Ordner die mit einer74IMAN13.02.02 18:43
Re: Alle Ordner die mit einer272ModeratorDieter13.02.02 19:14
Re: Alle Ordner die mit einer38IMAN14.02.02 07:48
Re: Alle Ordner die mit einer286ModeratorDieter14.02.02 09:32
Re: Alle Ordner die mit einer64IMAN14.02.02 16:55
Re: Alle Ordner die mit einer82IMAN14.02.02 16:55

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