| Public Function DirExists(ByVal sDirName As String) As Boolean Dim sDir As String 'on error resume next DirExists = False sDir = Dir$(sDirName, vbDirectory) If (Len(sDir) > 0) And (Err = 0) Then DirExists = True End If End Function |
Check if directory exist |
India web developer web development India | Freelance web development ecommerce web developer | Prayagasoft - web designer India, Ecommerce developer india, Ecommerce design