opslaan, bestand bestaat al

[End0weR]

Hallo,

Ik heb hier een code voor het aanmaken en opslaan van een pdf bestand.
Maar als het bestand al bestaat schrijft hij het nieuwe gewoon over.

Ik had het graag gehad dat hij eerst vraagt of hij het mag overschrijven, zo niet gewoon stoppen.

    Dim sPad As String
    Dim Pad() As String
    Dim i As Integer
    
    sPad = Range("L5").Value & "\"
    If sPad = "\" Then
    
    MsgBox ("Er is geen direcory pad aangegeven in de cel 'L5'")
    Exit Sub
    End If
      
    Pad = Split(sPad, "\")
    sPad = Pad(0)
    For i = 1 To UBound(Pad)
        sPad = sPad & "\" & Pad(i)
        If Dir(sPad, vbDirectory) = "" Then
            MkDir sPad
            MsgBox ("Er is een nieuwe directory aangemaakt")
        End If
    Next i
    If Dir(sPad) <> "\" Then
        'MsgBox "De directory bestaat!"
    Else
    MsgBox "De directory kan niet aangemaakt worden of bestaat niet!"
    Exit Sub
    End If

Iemand die me daarbij kan helpen?

Alvast bedankt

 

[gast0660]

Vergist van code?

 

[edmoor]

De getoonde code is niet voor het opslaan van een bestand.

 

[HSV]

Maakt niet uit toch?
Die code werkt toch niet.

Bv.

Sub oplaan()
Dim sPad As String
sPad = "c:\users\gebruikersnaam\documents\test.pdf"
If Dir(sPad, vbDirectory) <> vbNullString Then
   If MsgBox("overschrijven?", vbYesNo) = vbYes Then
     ActiveSheet.ExportAsFixedFormat 0, sPad
   End If
 Else
  ActiveSheet.ExportAsFixedFormat 0, sPad
End If
End Sub

 

[End0weR]

Idd sorry het maakt geen bestand aan, maar wel de map naar het juiste pad

Er moet juist eerst een controle komen of het pad bestaat, zoja bestand bestaat al