I am working on a pretty small program but am having some problems making it copy th files, it always says file not found. I am pretty new to VB so I am not sure what I am doing wrong. Thanks!

Dim DirectoryPath As String, DirPath As String
DirectoryPath = "c:\saved\" & Text1.Text
DirPath = "c:\siscd\photos\*.*"

MkDir DirectoryPath
'FileCopy DirPath, DirectoryPath
FileCopy "c:\siscd\photos\*.*", DirectoryPath