dim user as string
user = system.environment.username.tostring
directory.createDirectory("C:\Documents and Settings\" & user & "\Desktop\My Backup")

dim backupDest as string = "C:\Documents and Settings\" & user & "\Desktop\My Backup"

dim myFiles as String() = Directory.GetFiles("C:\tmp", "*.doc")

dim i as integer
for i = 0 to myFiles.GetUpperBound(i)
File.Copy(myFiles(i), backupDest & "\" & myFile(i))    //problem occurs here
next

 
        'array to hold substrings
        Dim StringArray() As String
 
        'the path to parse
        Dim RandomPath As String = "C:\tmp\testing.doc"
 
        'breaks the path into substrings "\" is the delimiter and stores it in StringArray
        StringArray = RandomPath.Split("\")
 
        Dim FileName As String
 
        'get the filename which will be in the last index of the array
        FileName = StringArray(StringArray.Length - 1)
 
        MsgBox("The filename is " & FileName)

     Dim user as String = _ 
     System.Enviroment.Username.ToString

     Dim backupdest as string = _ 
     "C:\Documents and Settings\" & user & "\Desktop\My Backup\")

     Directory.CreateDirectory(backupdest)

     Dim myFiles = Directory.GetFiles("C:\tmp", "*.doc")

	For each file as string in myFiles
		File.Copy(file, backupdest & file)
	next

dim user as string 
user = System.environment.username.tostring
dim mydest as string = "C:\documents and settings\" & user & "\desktop\mybackup\"

try
dim myfiles as string() = Directory.getfiles("C:\", "*.doc",   searchoption.alldirectories)  //comment here
dim i as integer

for i = 0 to myfiles.getupperbound(i)
dim filesbeingcopied as string
dim r as intger = myfiles(i).lastindexof("\")
filesbeingcopied = myfiles(i).substring(r +1)

file.copy(myfiles(i), mydest & filesbeingcopied)
next

catch ex as exception

end try

Dim user As String = System.Environment.Username.ToString()
Dim dest As String = "C:\Documents and Settings\" & user & "\Desktop\MyBackup\"

Try

	Dim files As String() = Directory.GetFiles("C:\","*.doc", SearchOption.AllDirectories)

	Dim enum As Collections.IEnumerator = files.GetEnumerator()

	While enum.MoveNext
		Dim fi As New FileInfo(enum.Current)
		File.Copy(fi.Directory & "\" & fi.Name, dest & fi.Name))
	End While

Catch ex As Exception
	MsgBox(ex.Message)
End Try

Dim files As String() = Directory.GetFiles("C:\","*.doc", SearchOption.AllDirectories