If Len(Dir(sDefaultPath, vbDirectory)) = 0 Then 'DoCmd.Echo False 'suppress the screen updates = ON If Dir(sCurDir, vbDirectory) = vbNullString Then SCurDir = Left(sDefaultPath, InStr(iStart, sDefaultPath, "\")) Public Function MyMkDir(sDefaultPath As String) Const sDefaultPath As String = "C:\Temp\"
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |