Re: Copying files in VB.NET 2005

Hi,

Try something like this

Dim strFiles As ReadOnlyCollection(Of String) =
My.Computer.FileSystem.GetFiles(My.Computer.FileSystem.CurrentDirectory,
FileIO.SearchOption.SearchAllSubDirectories, "*.*")
ProgressBar1.Maximum = strFiles.Count
For x As Integer = 0 To strFiles.Count - 1
Dim strFoundFile As String = strFiles(x)
ProgressBar1.Value = x
My.Computer.FileSystem.CopyFile(strFoundFile, strCopyToFolder &
strFoundFile.Substring(3), FileIO.UIOption.AllDialogs, _
FileIO.UICancelOption.DoNothing)
' My.Computer.FileSystem.CopyFile(strFoundFile, strCopyToFolder
& strFoundFile.Substring(3), True, FileIO.UICancelOption.DoNothing)

Next
ProgressBar1.Value = strFiles.Count

Ken
------------------
"Edhy Rijo [Progytech]" <erijo@xxxxxxxxxxxxx> wrote in message
news:uZ4TZaECHHA.5068@xxxxxxxxxxxxxxxxxxxxxxx
Hi All,

I am learning VB.NET and building small application that will do the
following:
Copy all files from a DVD to a specific folder in the hard drive and
overwrite all files always.
The problem I am facing is that the copy statement I am using is that when
overwriting the files it will prompt for each file, so I can not find an
option to tell it to overwrite all.

If strCopyToFolder.EndsWith("\") = False Then
strCopyToFolder += "\"
End If
'Dim instance As New FileIO.UIOption
For Each strFoundFile As String In
My.Computer.FileSystem.GetFiles(Me.cboCDDrives.Text,
FileIO.SearchOption.SearchAllSubDirectories, "*.*")
My.Computer.FileSystem.CopyFile(strFoundFile, strCopyToFolder &
strFoundFile.Substring(3), FileIO.UIOption.AllDialogs, _
FileIO.UICancelOption.DoNothing)
' My.Computer.FileSystem.CopyFile(strFoundFile, strCopyToFolder &
strFoundFile.Substring(3), True, FileIO.UICancelOption.DoNothing)
Next

As you can see I have tried with two ways to copying the files and since
these DVD may have up to 7GB of data, I want to show the user the progress
of the copying and then inform the user when the copying operation is
completed.

I would appreciate if anybody can point me to the right direction here,
taking into consideration that I am really new to VB.NET (just 2 weeks of
reading books). My developer experience is with Visual FoxPro and I could
have done this little project in not time with VFP, but I do want to get
used to VB.NET.



--
Edhy Rijo
www.progytech.com
Bronx New York
ProMatrix MVP Life


.

Relevant Pages

  • Search pattern
    ... Dim strfile As String ... Dim bAddressFound As Boolean ... Dim strCurrentChar As String ...
    (comp.databases.ms-access)
  • Auto Write Name and Merge across
    ... Dim Sheetname01 As String ... Dim WeekName01 As String ...
    (microsoft.public.excel.misc)
  • Re: multiplatform (pocketPC & desktopPC) (Daniel !!)
    ... Friend Versione As String ... Public Sub GetMyConnectionPalmare() ... Dim errorMessages As String ... Private Function GetDS_Desktop(ByVal SQL As String) As DataSet ...
    (microsoft.public.dotnet.framework.compactframework)
  • Re: multiplatform (pocketPC & desktopPC) (Daniel !!)
    ... Friend Versione As String ... Public Sub GetMyConnectionPalmare() ... Dim errorMessages As String ... Private Function GetDS_Desktop(ByVal SQL As String) As DataSet ...
    (microsoft.public.dotnet.framework.compactframework)
  • Help answer these 70-310 questions
    ... One argument is the string ... Dim output As New StringBuilder ... EmployeeLocations. ... You create a strongly named serviced component. ...
    (microsoft.public.cert.exam.mcsd)
Loading