Searching Hard Drive for Certain Files then Writing to Server

[jora]

I have a couple of questions that maybe you guys can help me out with. I am trying to create an app that will search HDD for certain file extensions. Once it searches it displays its results in a textbox. Now there are a couple of variables Like OS version, Secondary Partitions, and Profiles locations (all Windows). The user of this app will run this program to do a search on certain file extensions but also it will need to copy everything under the profile directory. Once it has run its search and the list of files found appear in the textbox the user should be able to select which files he/she would like to transfer up to a server. On the server a folder containing the Network Name of the computer should be created with the files that were selected to be transferred.

I have started some of the app but alot of functionality is missing like how to transfer and search, and also how to get the network name of the pc:

Thanks


Private Sub cmdSearch_Click()
Dim netid As String
Dim FE As String
Dim Profile As String
Dim Store As String
Dim Parlet As String
Dim Partition As String
Dim OS As String
Dim SearchResults As String
FE = "*.dbt, *.fds, *.pst, *.pab, *.xls, *.doc, *.mdb, *.dbf, *.ppt, *.tpm, *.msg, *.zbd, *.z20, *bookmark*"
netid =
OS = txtOS.Text
Parlet = txtParlet.Text
Partition = txtPartition.Text
If OS = "NT" Then
Profile = "C:\WINNT\Profiles"
Else: Profile = "C:\Documents and Settings"

End Sub