Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Durchsuchen von Unterordner
Autor: webi_de
Datum: 09.10.01 09:10
Hallo Progs! Ich habe da mal ne Frage!!! Mit diesem Code Frage ich ob in diesem Ordner Heute Dateien erstellt worden sind und wenn ja Kopiere ich diese Datei woanders hin. Wenn aber in diesem Ordner noch andere Ordner sind. Soll diese auch Durchsucht werden. Ich weiss aber nicht wie ich das Realisieren kann.Ich wäre für jeden Tipp Sehr Sehr Dankbar. Option Explicit Dim fso As New FileSystemObject Dim s As String Dim d As String Private Sub Command1_Click() s = Dir("C:Oktober*.*") While s <> "" d = CStr(FileDateTime("C:Oktober" & s)) 'MsgBox s d = Left(d, 10) If d = CStr(Date) Then MsgBox s fso.CopyFile "C:Oktober" + s, "C:August" End If s = Dir() Wend End Sub MfG Webi

Durchsuchen von Unterordner	65	webi_de	09.10.01 09:10
Re: Durchsuchen von Unterordner	217	Dieter	09.10.01 09: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übersicht

Suchen