Как проверить, существует ли файл с помощью макроса VBA в Powerpoint

Question

Я хочу проверить, существует ли файл перед запуском моего кода. Если он существует, чем в противном случае, сохраните мой код. То, что я написал это следующий код:

Private Sub CommandButton21_Click() 

If FileFolderExists("C:\Users\Moez\Desktop\Macro_Project\Test1.pptm") Then 
    MsgBox "Modification already done!" 
Else 
    deleteTextBox 
    AllBlackAndDate 
    LastModifiedDate 
    SaveAllPresentations "C:\Users\Moez\Desktop\Macro_Project\Test1.pptm" ' save here 
End If 

End Sub   

Answer 1

Если вы хотите проверить файл существует на локальном компьютере, который вы хотите использовать FileSystemObject.

Dim fso : Set fso = CreateObject("Scripting.FileSystemObject") 

if fso.FileExists("Your file name and path here") Then 
    ' do what you like in the case where the file exists 
Else 
    ' do whatever you wanted to do where the file doesn't exist 
End If 

Сообщите мне, если вам потребуются дополнительные разъяснения.

Answer 2

Это самый лучший способ, которым я видел:

Sub test() 

thesentence = InputBox("Type the filename with full extension", "Raw Data File") 

If Dir(thesentence) <> "" Then 
    MsgBox "File exists." 
Else 
    MsgBox "File doesn't exist." 
End If 

End Sub 

Кредит здесь:

Check if the file exists using VBA

Answer 3

Вот мой вариант проверки, если что-то существует. Включая тестовый под. Это должно работать в любой среде VBA, включая PowerPoint.

Sub test() 
MsgBox (FileFolderExists("C:\Users\Moez\Desktop\Macro_Project\Test1.pptm")) 
End Sub 

Private Function FileFolderExists(str As String) As Boolean 
Dim sCheck As String 
sCheck = Dir(str) 

If Len(sCheck) > 0 Then 
    FileFolderExists = True 
Else 
    FileFolderExists = False 
End If 
End Function