Über VBA letze erstellte Datei in einem Ordner

Hallo,
ich möchte per VBA Script, die letzte erstellte Datei in einem Ordner als Variable angezeigt bekommen.
(eine pdf datei die ich dann gleich per befehl an outlook weiterleiten will)
ICh weiß das es was mit CreateObject("Scripting.FileSystemObject") zu tuhen haben muss, weiß aber nicht genau wie ich das umsetzen soll.
Das er die Datei die er als letzes gedruckt hat gleich als Anlage an Outlook sendet.
--------------------
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=XPrinter, Collate:=True

Set Mail = CreateObject("Outlook.Application").CreateItem(0)
Mail.Subject = cboFileNames1
'Mail.Body =

'Mail.CC = ""
'MsgBox ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
Mail.Attachments.Add Me.cboFileNames1.Text

Mail.Display
-----------------------
Dies ist der Code für das automatische senden an Outlook.
Kann mir vielleicht wer weiterhelfen, wie ich das letze .pdf Datei die gedruckt wurde gleich als eMail verschicken kann.
MFG Sven

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Sven,
Option Explicit


Sub Dateiliste_Neu()
'   erstellt von Hajo.Ziplies@web.de
'   jüngste Datei feststellen
' <a href="http://home.media-n.de/ziplies/">http://home.media-n.de/ziplies/</a>
Dim strVerzeichnis As String
Dim StrDatei As String
Dim I As Integer
Dim StrTyp As String
Dim Dateiname As String
Dim Dateiname_neu As String
Dim Zeit As Date
strVerzeichnis = "D:\Eigene Dateien\Hajo\"
StrTyp = "*.xls"
Dateiname = Dir(strVerzeichnis & StrTyp)
Dateiname_neu = Dateiname
Zeit = FileDateTime(strVerzeichnis & Dateiname)
Do While Dateiname <> ""
If Zeit < FileDateTime(strVerzeichnis & Dateiname) Then
Zeit = FileDateTime(strVerzeichnis & Dateiname)
Dateiname_neu = Dateiname
End If
Dateiname = Dir
Loop
MsgBox " Die jüngste Datei ist " & Dateiname_neu
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.

Hallo, Option Explicit Sub juengste() Const DPFAD As String = "C:\eigene Dateien\" Dim z As Long, f As Long With Application.FileSearch .LookIn = DPFAD .SearchSubFolders = False .Filename = "*.xls" .LastModified = 7 If .Execute(4, 2, True) > 0 Then MsgBox .FoundFiles(1) End If End With End Sub Den Pfad musst du anpassen. Gruß K.Rola

Beliebteste Forumthreads (12 Monate)

Über VBA letze erstellte Datei in einem Ordner

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Über VBA letze erstellte Datei in einem Ordner

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread