Wie überprüfe ich, ob eine Datei mit VBA-Makro in Powerpoint existiert

Question

Ich möchte überprüfen, ob eine Datei bereits existiert, bevor ich meinen Code ausführe. Wenn es existiert als Exit, ansonsten meinen Code laufen lassen. Was ich geschrieben habe, ist folgende Code:

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

Wenn Sie eine Datei existiert auf dem lokalen Computer überprüfen möchten Sie eine FileSystemObject verwenden möchten.

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 

Lassen Sie mich wissen, wenn Sie weitere Erläuterungen benötigen.

Answer 2

Dies ist der beste Weg, die ich gesehen habe:

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 

Kredit hier:

Check if the file exists using VBA

Answer 3

Hier ist meine Version zu überprüfen, ob etwas existiert. Einschließlich eines Test-Sub. Dies sollte in jeder VBA-Umgebung, einschließlich PowerPoint, funktionieren.

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