Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
264to268
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
264to268
264to268
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Listausgabe der verschobenen Dateien

Listausgabe der verschobenen Dateien
06.06.2003 10:26:03
sansold
Hallo
ich habe folgendes Programm:

Public Sub verschieben()



Dim index As Integer, FSYObjekt As Object, FObjekt As Object
Set FSYObjekt = CreateObject("Scripting.FileSystemObject")
With Application.FileSearch
.FileName = "e:\v54\work\*.dat"
.LookIn = "e:\v54\work\"
If .Execute > 0 Then
For index = 1 To .FoundFiles.Count
Set FObjekt = FSYObjekt.GetFile(.FoundFiles(index))


If Date > (FObjekt.DateLastModified) Then FObjekt.Move "e:\v54\arc\"

Next
End If
End With
End Sub


Ich will nach beenden des verschiebens eine Liste aller verschobener Dateien ausgegeben bekommen.

Wie kann das eingepflegt werden?

Vielen Dank

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Listausgabe der verschobenen Dateien
06.06.2003 11:15:49
Ramses

Hallo

vielleicht so in einer Tabelle
Ungetestet,... sollte aber tun.

Gruss Rainer


Re: Listausgabe der verschobenen Dateien
06.06.2003 11:36:40
oaie

Public Sub verschieben()

Dim index As Integer, FSYObjekt As Object, FObjekt As Object
Set FSYObjekt = CreateObject("Scripting.FileSystemObject")
Workbooks.Add
dname = ActiveWorkbook.Name
With Application.FileSearch
.FileName = "D:\oaie\backup\personl*.xls"
.LookIn = "D:\oaie\backup\personl\"
If .Execute > 0 Then
For index = 1 To .FoundFiles.Count
Set FObjekt = FSYObjekt.GetFile(.FoundFiles(index))


If Date > (FObjekt.DateLastModified) Then FObjekt.Move "D:\oaie\backup\pers_arc\"
fname = FObjekt.Name
Windows(dname).Activate
Range("A" & index).Select
ActiveCell = fname
Next
End If
End With
Windows(dname).Activate
pfad = "D:\oaie\backup\pers_arc\"
strDirNew = pfad
ChDrive Left(pfad, 1)
ChDir strDirNew
ActiveWorkbook.SaveAs "filelist_" & Date & ".xls"
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige