Re: open latest file

JMageeirbc@xxxxxxxxx schrieb:
On Jan 14, 3:09 pm, "ekkehard.horner" <ekkehard.hor...@xxxxxxxx>
wrote:
JMageei...@xxxxxxxxx schrieb:

Is it possible to open the latest file using vbscript.
I have a directory that has a few powerpoint presentations in it. I
would like the script to automatically open the newest one.
I hope this

Const cdtFirst = #1/1/100#

==========================================
Dim sFolder : sFolder = ".\"
==========================================
Dim oFS : Set oFS = CreateObject( "Scripting.FileSystemObject" )
Dim dtLatest : dtLatest = cdtFirst
Dim sExt : sExt = "ppt" ' not entirely sure about this extension
Dim oLFile : Set oLFile = Nothing
Dim oFile
For Each oFile in oFS.GetFolder( sFolder ).Files
If sExt = LCase( oFS.GetExtensionName( oFile.Name ) ) Then
If dtLatest < oFile.DateLastAccessed Then ' maybe DateCreated/DateLastModified
dtLatest = oFile.DateLastAccessed
Set oLFile = oFile
End If
End If
Next
If oLFile Is Nothing Then
WScript.Echo "No file with extension", sExt, "found."
Else
WScript.Echo "found", oLFile.Name, oLFile.DateLastAccessed
End If

will help you finding the file. I assume you could use WSHell.Run or
.Execute to start Powerpoint with the oLFile.Path as parameter - but
as I don't use PP, I can't help you in this regard.

Where do I enter the path?
.

Relevant Pages

  • Re: open latest file
    ... I have a directory that has a few powerpoint presentations in it. ... Dim dtLatest: dtLatest = cdtFirst ... Dim oLFile: Set oLFile = Nothing ... For Each oFile in oFS.GetFolder.Files ...
    (microsoft.public.scripting.vbscript)
  • Re: open latest file
    ... I have a directory that has a few powerpoint presentations in it. ... Dim dtLatest: dtLatest = cdtFirst ... Dim oLFile: Set oLFile = Nothing ...
    (microsoft.public.scripting.vbscript)
Loading