Code erweitern
06.12.2019 11:00:38
Frank
ich habe hier im Forum diesen Code gefunden. Er öffnet den letzt gespeicherten Ordner unter dem Pfad
L:\Fuhrpark\Verladung.
Meine Frage wäre nun, kann man ihn so erweitern dass er mir darin die Datei Test.xls öffnet?
Sub LetztenUnterOrdnerOeffnen2()
'03.11.2008, NoNet
'https://www.herber.de/forum
Dim objFSO, objOrdner, objSubFolder
Dim strBasisordner As String, strLetzterOrdner As String, datLtzDatum As Date
strBasisordner = "L:\Fuhrpark\Verladung" 'Dieser Ordner soll durchsucht werden
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOrdner = objFSO.GetFolder(strBasisordner)
Set objSubFolder = objOrdner.subfolders
MsgBox objSubFolder.Count & " Unterordner gefunden !"
'Zuletzt erstellten Unterordner ermitteln - ist evtl. auch nch anders möglich !?!?
For Each objOrdner In objSubFolder
If objOrdner.datecreated > datLtzDatum Then
strLetzterOrdner = objOrdner.Name
datLtzDatum = objOrdner.datecreated
End If
Next
'MsgBox strBasisordner & "\" & strLetzterOrdner, , "Letzter Ordner :"
Shell ("Explorer.exe " & strBasisordner & "\" & strLetzterOrdner) 'mit Explorer öffnen
End Sub