Trouble Using File System Object

[sgfromny]

Im trying to copy files in Excel and I keep getting Access Denied to the Files.. I dont have them open else where so Im confused why I'd be getting this.. Is there a work around?

 

[fumei]

Post your code.

Gerry

 

[sgfromny]

The Code is long - Here's the upper section.

Private Sub fetch_Click()
Dim FSO As FileSystemObject
Dim DocPath As String
Set FSO = CreateObject("Scripting.FileSystemObject")

DocPath = ThisWorkbook.Worksheets("Sheet1").Range("A101").Value
vJobNo = ThisWorkbook.Worksheets("Sheet1").Range("A100").Value
vLibraryPath = "c:\library\03 Desk\Assemblies"

'Single Base Frame
If Me.obBase1 = True Then
FSO.CopyFile vLibraryPath & "\Base Frames\Single\Base Frame Assembly.iam", vJobNo & "\Base Frame"
FSO.CopyFile vLibraryPath & "\Base Frames\Single\Base Frame Assembly.idw", DocPath
FSO.CopyFolder vLibraryPath & "\Base Frames\Single\Variable Components", vJobNo & "\Base Frame"
End If

'Double Base Frame
If Me.obBase1 = True Then
FSO.CopyFile vLibraryPath & "\Base Frames\Double\dbl Base Frame Assembly.iam", vJobNo & "\Base Frame"
FSO.CopyFile vLibraryPath & "\Base Frames\Double\Dbl Base Frame Assembly.idw", DocPath
FSO.CopyFolder vLibraryPath & "\Base Frames\Double\Variable Components", vJobNo & "\Base Frame"
End If

 

[fumei]

Make sure you have all the proper "\" in your variables and values.

Gerry