PowerPoint VBA: открыть самый последний PDF в папке - PullRequest
Новая
       14

PowerPoint VBA: открыть самый последний PDF в папке

0 голосов
/ 17 сентября 2018

Я пытаюсь создать код, который открывает самый последний файл в папке.В этой папке у нас много версий разных файлов, которые разделены по дате и времени в самом имени файла.Я сделал этот код, который делает это, но я не могу понять, как разделить по часу модификации.Не могли бы вы, ребята, пожалуйста, помогите мне.

Формат примерно такой: "Raio X - Grafico - 17.09.2018 07.39.pdf". Единственное, что меняется, это дата и час в конце именифайл, каждую новую версию. 

 Dim FileSys, objFile, myFolder, c As Object
 Dim Fldname As String
 Dim FPath As String
 Dim FileN As String
 Dim MDataFile As String
 Dim Date1 As Date
 Dim RDate As String
 Dim Hour1 As Date
 Dim RHour As String


 Date1 = Now()
 RDate = Format(Date1, "dd.mm.yyyy")
 Hour1 = Time
 RHour = Format(Hour1, " hh.mm")
 FPath = "R:\TL - Comando de Montagem - Relatorios Internos\Raio X"
 FileN = FPath & "\" & "Raio X - Grafico - " & RDate & RHour & ".pdf"
 ActivePresentation.FollowHyperlink _
 Address:=FileN, _
 NewWindow:=True, AddHistory:=True

 End Sub

Мне нужно сравнить системный час с часом файлов в папке, и я не знаю, как это сделать.

1 Ответ

0 голосов
/ 17 сентября 2018

Поскольку позиции находятся на фиксированном расстоянии от конца, вы можете использовать функции Mid и Len.
Вот пример: 

FileName = "Raio X - Grafico - 17.09.2018 07.39.pdf"
FileHour = Mid(FileName, Len(FileName) - 8, 2)
FileMinute = Mid(FileName, Len(FileName) - 5, 2)
...