Open Text based on creation date

[carlos_ray86]

Is there a way to open a text file based on the date it was created.
When I run my macro I want it to open the most recent text file in a
specific folder. currently I'm opening my text through a user command
pop-up window. Thanks

UF = Application.GetOpenFilename(FileFilter:=".TXT
Files(*.txt),*.txt", Title:="Satlog Measured")

Workbooks.Open Filename:=UF, Format:=2

 

[carlos_ray86]

Is there a way to open a text file based on the date it was created.
When I run my macro I want it to open the most recent text file in a
specific folder. currently I'm opening my text through a user command
pop-up window. Thanks

UF = Application.GetOpenFilename(FileFilter:=".TXT
Files(*.txt),*.txt", Title:="Satlog Measured")

Workbooks.Open Filename:=UF, Format:=2

Can anyone help?

 

[Steve Yandl]

This will give you the path and file name to the most recently modified txt
file in "C:\Test"

____________________________________________


Sub FindNewestTextFile()
strFolderPath = "C:\Test"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFolderPath)

dtmLatestDate = 0
Set colFiles = objFolder.Files

For Each objFile In colFiles
If objFSO.GetExtensionName(objFile) = "txt" Then
If objFile.DateLastModified > dtmLatestDate Then
dtmLatestDate = objFile.DateLastModified
strLatestFile = objFile.Path
End If
End If
Next objFile

If Not dtmLatestDate = 0 Then
MsgBox strLatestFile
End If

Set objFolder = Nothing
Set objFSO = Nothing
End Sub

__________________________________________________

Steve Yandl

 

[carlos_ray86]

This will give you the path and file name to the most recently modified txt
file in "C:\Test"

____________________________________________

Sub FindNewestTextFile()
strFolderPath = "C:\Test"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFolderPath)

dtmLatestDate = 0
Set colFiles = objFolder.Files

For Each objFile In colFiles
If objFSO.GetExtensionName(objFile) = "txt" Then
If objFile.DateLastModified > dtmLatestDate Then
dtmLatestDate = objFile.DateLastModified
strLatestFile = objFile.Path
End If
End If
Next objFile

If Not dtmLatestDate = 0 Then
MsgBox strLatestFile
End If

Set objFolder = Nothing
Set objFSO = Nothing
End Sub

__________________________________________________







- Show quoted text -

What is all of the Dims I tried making most of them as objects but
they wont work still

 

[Steve Yandl]

Carlos,

If you first go to 'Tools > References' and set a reference to 'Microsoft
Scripting Runtime', you can dim objFSO as "Scripting.FileSystemObject" and
the folder as "Scripting.Folder".

You can also get away with just what I gave you but change the string at the
top to the folder you're actually wanting to check and rather than
generating a message box you would want to feed the file name string to
whatever code you have in your VBA subroutine.

Steve