msgbox

[Davers]

I'd like an error handler on my code...i've never created one before so I'm not quite sure how to go about it. The following code copies a folder and renames it in a new directory. I'd like it to check to see if the new folder it is being named to already exists, and if so give you the option to cancel. Here is the code:

Sub copyFDfiles()

Dim myDir As String
Dim myDest As String
Dim fs As New Scripting.FileSystemObject

myDir = Range("C11").Value
myDest = Range("C12").Value

fs.copyfolder myDir, myDest
    
End Sub

The myDest part is where it creates the new folder...

Any ideas?

Thanks,

Dave M.

 

[Andrew Poulsom]

Courtesy John Walkenbach:

Private Function PathExists(pname) As Boolean
'   Returns TRUE if the path exists
    Dim x As String
    On Error Resume Next
    x = GetAttr(pname) And 0
    If Err = 0 Then PathExists = True _
      Else PathExists = False
End Function

More here:

http://j-walk.com/ss/excel/tips/tip54.htm

 

[Davers]

Thanks Andrew!! Great help as always!!

Have a great weekend!

Dave M.