[AccessD] A2203: Determine if a folder exists - SOLVED

Not sure what the problem was / is but this worked for me first time, no
probs...

Probably worth testing there is a value in txtFolderPath

Private Sub Command0_Click()

    Dim fs
    Dim x As Integer

    Set fs = CreateObject("Scripting.FileSystemObject")
    
    If fs.FolderExists(Me.Text1) Then
         MsgBox "Folder Exists"
    ElseIf x = 0 Then
         MsgBox "Folder doesn't Exist"
    End If
    
End Sub

Mark

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.859 / Virus Database: 585 - Release Date: 14/02/2005