Path Not Found
I am trying to determine the presence of a file using the
DIR command as follows: If Len(Dir(path & wbook)0 Then 'File Found End If However, when the path variable is not available, my macro aborts with the error message "Path not Found". I'd appreciate any suggestions on how I can determine the path is not present before I get the error message. Thanks for any suggestions. |
Path Not Found
CheckPath: 'the next few lines of code will check to see if th directory exists With Application.FileSearch .LookIn = ThisPath If .LookIn < ThisPath Then 'if the directory does not exist, we will print 'an error message MsgBox "Could not find the directory" Else: GoTo LookForFiles End If End With LookForFiles: 'the next few lines of code will ensure that the file exists in tha directory With Application.FileSearch .LookIn = ThisPath 'directory path .Filename = "*.xls" .SearchSubFolders = False If .Execute() 0 Then For i = 1 To .FoundFiles.Count If FileYouWant = .FoundFiles(i) Then GoTo StartWork Next i Else MsgBox "There were no files found in " & ThisFilePath vbCritical GoTo EndOfMacro End If NumberOfFilesFound = .FoundFiles.Count End Wit ----------------------------------------------- ~~ Message posted from http://www.ExcelTip.com ~~View and post usenet messages directly from http://www.ExcelForum.com |
All times are GMT +1. The time now is 10:26 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com