Function CheckFolder(sPath As String) As Boolean If Right(sPath, 1) <> "/" Then sPath = sPath & "/" Dim sDir As String sDir = Dir(sPath & "*.*", vbDirectory) While sDir <> "" If GetAttr(sPath & sDir) And vbDirectory Then CheckFolder = True sDir = "" Else sDir = Dir() End If Wend End Function