controleren of folder bestaat

[Niels28]

Met de volgende code sla ik een bestand op in een map die begint met de waarde uit B2
in werkelijkheid is de naam van de map veel langer.

Sub project()

Dim sMap As String
    
sMap = "F:\data\projecten\"
ActiveWorkbook.SaveAs Filename:=sMap & Dir(sMap & Sheets("BLAD1").Range("B2") & "*", 16) & "\07a. inkopen\Besteloverzicht " & Sheets("BLAD1").Range("D2") & Sheets("BLAD1").Range("B2") & ".xlsm"

End Sub

Dit gaat goed, nu wil ik graag weten hoe ik kan controleren of deze map wel bestaat?
Ik heb al vanalles geprobeert met:

With CreateObject("Scripting.FileSystemObject")
If Not.FolderExists ("sMap & Dir(sMap & Sheets("BLAD1").Range("B2") & "*", 16)")  then 
vervolg code
End if
end with

Maar ik krijg hem niet werkend.

Niels

 

[Niels28]

Na nog een paar pogingen is het toch gelukt:

With CreateObject("Scripting.FileSystemObject")
If Not .FolderExists(sMap & Dir(sMap & Sheets("BLAD1").Range("B2") & "*", 16) & "\07a. inkopen\") Then
MsgBox "Map bestaat niet"
Exit Sub
End If
End With

Niels