[2005] Copy all files of a specific type

Hi.
Im learning vb.net 2005 and i am trying to create a backup program for myself

I would like to beable to copy all files on the local hard drives that have the *.txt and *.doc file extensions.

I have sucessfully managed to use teh getfiles method to find the files but i cant figure out how to copy them to a usb drive (E:\)

Can you help?

Quote:

---

Originally Posted by murrayf1

Hi.
Im learning vb.net 2005 and i am trying to create a backup program for myself

I would like to beable to copy all files on the local hard drives that have the *.txt and *.doc file extensions.

I have sucessfully managed to use teh getfiles method to find the files but i cant figure out how to copy them to a usb drive (E:\)

Can you help?

---

you can use the file.copy

something like this

VB Code:

Dim file As String
Dim foundfiles As String() 'This is an array containing all filenames, you need to fill this first
 
For Each file In foundFiles
    File.copy(file, "e:/")
Next

you need to figure out is if getFiles method also get the complete directory path, or only the filename.

Dim foundfiles As ReadOnlyCollection(Of String)
foundfiles = My.Computer.FileSystem.GetFiles("C:\", True, "*.txt")
Thats the code im using to get the files for txt

I cant seem to get the Dim foundfiles As String() to work because foundfiles is already declared but if i take it out i get the following errors

Too many arguments to 'Public Shared Function Copy(str As String) As String'.

Access of shared member, constant member, enum member or nested type through an instance; qualifying expression will not be evaluated.

I think you're going to run into a problem when using that method for C:\ because eventually it will hit System Volume Information and throw an UnauthorizedAccessException. However, if that's not the case, a simple for each loop should still work, you just have to keep in mind what you're doing:

VB Code:

For Each str As String In foundfiles
            IO.File.Copy(str, "E:\" & str.Substring(str.LastIndexOf("\") + 1))
Next

The second argument in File.Copy has to be the path including the filename. not just where to dump it off. Intellisense will tell you this as you type the second portion.

You may have to use a recursive search if you want to start out in C:\ that is enclosed in a try / catch block to catch the System Volume Information's UnauthorizedAccessException..

Bill

AHH Bangs head aganst a wall!
System.ComponentModel.InvalidEnumArgumentException: The value of argument 'searchType' (-1) is invalid for Enum type 'SearchOption'.

Any ideas?
Code is:
Dim foundfiles As ReadOnlyCollection(Of String)
foundfiles = My.Computer.FileSystem.GetFiles("C:\", True, "*.ptf")

For Each str As String In foundfiles
IO.File.Copy(str, "F:\" & str.Substring(str.LastIndexOf("\") + 1))

You relly need to read what Intellisense is telling you as you're typing. There is no overload that takes a Boolean as the second argument. There are only two valid values and Intellisense tells you what they are. Also, if you're getting every PTF file on C: and copying them to one folder then you have no guarantee that you won't be trying to create two files with the same path. Without error checking for that, here's basically what you want:

VB Code:

'With 'My'
        For Each filePath As String In My.Computer.FileSystem.GetFiles("C:\", _
                                                                       FileIO.SearchOption.SearchAllSubDirectories, _
                                                                       "*.ptf")
            My.Computer.FileSystem.CopyFile(filePath, _
                                            My.Computer.FileSystem.CombinePath("F:", _
                                                                               My.Computer.FileSystem.GetName(filePath)), _
                                            True)
 
        Next filePath
 
        'Without 'My'
        For Each filePath As String In IO.Directory.GetFiles("C:\", _
                                                             "*.ptf", _
                                                             IO.SearchOption.AllDirectories)
            IO.File.Copy(filePath, _
                         "F:\" & IO.Path.GetFileName(filePath), _
                         True)
 
        Next filePath