Joakiml
Something like
Dim a As Object    
Set a = CreateObject("Scripting.FileSystemObject")
    If a.FolderExists(sFilename)= False Then