Bamboocha_10
Mitglied
Hallo,
ich möchte aus einem Ordner die zu letzt erstellte Datei "rausfischen"
aus diesem Threat http://www.tutorials.de/forum/visual-basic/161088-ordner.html
und von dieser Hompage
http://www.vbarchiv.net/workshop/workshop43s3.html
hab ich mir Anregungen geholt und folgendes programmiert:
Fehlermeldung in Zeile if cur.Name = "" Then:
Object variable or With Block variable not set
Irgendwie scheint das mit Dateien nicht zu funktionieren. Was hab ich falsch gemacht?
ich möchte aus einem Ordner die zu letzt erstellte Datei "rausfischen"
aus diesem Threat http://www.tutorials.de/forum/visual-basic/161088-ordner.html
und von dieser Hompage
http://www.vbarchiv.net/workshop/workshop43s3.html
hab ich mir Anregungen geholt und folgendes programmiert:
Code:
Public fso As New FileSystemObject
Sub neuse_Datei()
Dim pfad As String
Dim folder As folder
Dim file As file
Dim datei As String
Dim cur As file
pfad = "D:\Neuer Ordner"
Set folder = fso.GetFolder(pfad)
For Each file In folder.Files
If cur.Name = "" Then
cur.Name = file.Name
End If
If file.DateCreated > cur.DateCreated Then datei = file.Name
Next
MsgBox datei
End Sub
Fehlermeldung in Zeile if cur.Name = "" Then:
Object variable or With Block variable not set
Irgendwie scheint das mit Dateien nicht zu funktionieren. Was hab ich falsch gemacht?