Thema Datum  Von Nutzer Rating
Antwort
23.02.2022 15:57:56 Sven
Solved
23.02.2022 17:46:14 Gast76631
NotSolved
Rot Jüngste Datei über Laufwerk-Pfad suchen & deren Inhalt importieren
23.02.2022 18:46:56 volti
NotSolved
23.02.2022 19:02:16 Sven
NotSolved
23.02.2022 22:46:21 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
volti		 Datum:
23.02.2022 18:46:56		 Views:
641		 Rating:
     
Antwort:
  Ja
Thema:
Jüngste Datei über Laufwerk-Pfad suchen & deren Inhalt importieren

Hallo Sven,

hier schon mal eine Idee, wie diej üngste Datei ermittelt werden kann.

Kann man natürlich auch anders,z.B. in einer Schleife (Dir, FSO) machen....

Probiere es halt mal aus.

Code:
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22		  
Private Declare PtrSafe Function OemToCharA Lib "user32" ( _
        ByVal lpszSrc As String, ByVal lpszDst As String) As Long

Private Function Ascii2Ansi(ByVal sText As String) As String
  OemToCharA sText, sText
  Ascii2Ansi = sText
End Function

Sub JuengsteDatei_im_Ordner()
' Sub ermittelt die neueste Datei in den angegebenen Ordner mit Unterordner
  Dim sPfad As String, sFilter As String, sDateiname As String

  sPfad = "F:\Desktop\"                  ' Pfad <<<anpassen>>>"
  sFilter = "*.xls*"                     ' Dateifilter <<<anpassen>>>

  With CreateObject("wscript.shell")
      sDateiname = Ascii2Ansi(Split(.exec("cmd /c dir " & Chr$(34) _
      & sPfad & sFilter & Chr$(34) _
      & " /s/b/o-d").stdout.readall, vbCrLf)(0))
  End With
  MsgBox sDateiname, vbInformation, "Neueste Datei"
End Sub
_________
viele Grüße
Karl-Heinz

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
23.02.2022 15:57:56 Sven
Solved
23.02.2022 17:46:14 Gast76631
NotSolved
Rot Jüngste Datei über Laufwerk-Pfad suchen & deren Inhalt importieren
23.02.2022 18:46:56 volti
NotSolved
23.02.2022 19:02:16 Sven
NotSolved
23.02.2022 22:46:21 ralf_b
NotSolved