Hi,
This is the code i've used.
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