letzten Ordner öffnen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub test2() Dim FileOpen As String FileOpen = Application.GetOpenFilename("C:\test\2008_" & Range("D1") & "\(*.xls),*.xls") If FileOpen "" Then MsgBox "Ausgewählte Datei: " & FileOpen End Sub

Hallo Andre,
hier eine Möglichkeit,den letzten Unterordner eines vorgegebenen Basisordners zu öffnen :

Sub LetztenUnterOrdnerOeffnen()
    '03.11.2008, NoNet
   Dim objFSO, objOrdner, objSubFolder
   Dim strBasisordner As String, strLetzterOrdner As String
   strBasisordner = "C:\Test" 'Dieser Ordner soll durchsucht werden
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   Set objOrdner = objFSO.GetFolder(strBasisordner)
   Set objSubFolder = objOrdner.subfolders
   'MsgBox sf.Count & " Unterordner gefunden !"
   'Letzten Unterordner ermitteln - ist evtl.auch nch anders möglich !?!?
   For Each objOrdner In objSubFolder
       strLetzterOrdner = objOrdner.Name
   Next
   MsgBox strBasisordner & "\" & strLetzterOrdner, , "Letzter Ordner :"
   Shell ("Explorer.exe " & strBasisordner & "\" & strLetzterOrdner) 'mit Explorer öffnen
End Sub
Habe leider nicht herausgefunden, wie man direkt den letzten Unterordner ermittelt, daher per Schleife.
Gruß, NoNet

AW: Letzten Ordner per FSO öffnen

Andre´

Hallo NoNet,
danke für die Meldung.
Es öffnet sich nicht der zuletzt erstellte Ordner sondern der erste: 2008_09
hier mal ein Auszug:
Userbild

Laut DateCreaded sollte sich der Ordner 2008_11 öffnen
Ich hoffe es gibt eine Lösung.
MFG Andre

Achsoooo : Du meinst den ZEITLICH...

NoNet

Hallo Andre,
Achsoooo meinst Du das mit "letzten Ordner" : den ZEITLICH zuletzt erstellten Ordner - das geht aus Deiner ursprünglichen Formulierung nicht hervor !!!!
Ich ging vom (alphabetisch) letzten Ordner des Inhaltsverzeichnisses aus !!
Hier die Lösung für Dein Anliegen :


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 = "C:\Test" '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

Gruß, NoNet

Hi NoNet,Vielen Dank, funktioniert prima :-)))

Andre´

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 = "C:\Test" '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

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread