Neuste Datei öffnen

Computer: Software & Programmierung Visual Basic
#1

Hallo,
Ich möchte über ein Command Button eine OrdnerListe haben ,also eine Dir1ListBox die auf ein bestimmtes Verzeichniss zeigt. Soweit kein Problem.

nun habe ich die Wahl zwischen Ordner 1 , Ordner 2 & Ordner 3.
Beim Klick auf einen von den Ordnern soll das neuste Excel File aus dem Ordner gestartet werden :frowning:

Help thx

#2

Hi Joe,

ich habe Dir mal schnell etwas geschreiben. Hilft das?

Dim Datei

Sub ScanDir(ScanPfad)
 Dim Zeit, ZeitAlt
 Dim PathObject, FileObject, FileNow, SubFolders, SubFoldersNow

 Set PathObject = MyFSO.getFolder(ScanPfad)
 Set FileObject = PathObject.Files

 For Each FileNow In FileObject
 Zeit = FileNow.DateCreated
 If Zeit \> ZeitAlt Then
 ZeitAlt = Zeit
 Datei = FileNow.Name
 End If
 Next
End Sub

Private Sub Command1\_Click()
 Set MyFSO = CreateObject("Scripting.FileSystemObject")
 ScanDir ("C:\Windows")
 MsgBox Datei
End Sub

Gruß, Rainer

#3

Nachtrag
Hi Joe,

noch ein Nachtrag zu dem Code.

Wundere Dich nicht über die eigenartige Deklaration der Variablen, der Code läuft mit geringen Veränderungen auch in VBS. :smile: Da müssen die Variablen dann so deklariert sien.

Gruß, Rainer