Sleeper: FileCopy not helping

Hi,

This is the code i've used.

Code:

---

Sub temp()
With Application.FileSearch
.NewSearch
.LookIn = "C:\Today's Work\1 Submitted"
.FileType = msoFileTypeAllFiles
.FileName = ActiveCell.Value
.Execute
If .FoundFiles.Count > 0 Then
SourceFolder = "C:\Today's Work\1 Submitted\" & .FileName & ".dss"
DestinationFolder = "C:\Today's Work\2 Assigned\" & ComboBox1.Value & "\"
FileCopy SourceFolder, DestinationFolder
Else
MsgBox "File not found"
End If
End With
End Sub

---

The FileCopy function doesn't work here. It shows me a Path Not Found error. This folder is very much present on the drive and the path is true, but still it shows this error.

Any help is appreciated.

Thanks

Lynnnow

Try the following. I've renamed the variables to avoid confusion

Code:

---

Source = "C:\Today's Work\1 Submitted\" & .Filename & ".dss"
Destination = "C:\Today's Work\2 Assigned\" & ComboBox1.Value & "\" & .Filename & ".dss"
FileCopy Source, Destination

---