[L14M333]

Hello. im working on a little project for myself in Microsoft Visual Basic 2010 and i want to add an option so that when a user clicks a button it will open a browse directory window where they can select their directory and when they click "Ok" it will copy files into it.. its a basic question i think but im stumped.. heres my code:

Spoiler

' Declare a variable named theFolderBrowser of type FolderBrowserDialog.
        Dim theFolderBrowser As New FolderBrowserDialog

        ' Set theFolderBrowser object's Description property to
        '   give the user instructions.
        theFolderBrowser.Description = "Please choose the directory where you want the Patch files installed to."

        ' Set theFolderBrowser object's ShowNewFolder property to false when
        '   the a FolderBrowserDialog is to be used only for selecting an existing folder.
        theFolderBrowser.ShowNewFolderButton = True

        ' Optionally set the RootFolder and SelectedPath properties to
        '   control which folder will be selected when browsing begings
        '   and to make it the selected folder.
        ' For this example start browsing in the Desktop folder.
        theFolderBrowser.RootFolder = System.Environment.SpecialFolder.Desktop
        ' Default theFolderBrowserDialog object's SelectedPath property to the path to the Desktop folder.
        theFolderBrowser.SelectedPath = My.Computer.FileSystem.SpecialDirectories.Desktop

        ' If the user clicks theFolderBrowser's OK button..
        If theFolderBrowser.ShowDialog = Windows.Forms.DialogResult.OK Then
            ' Set the FolderChoiceTextBox's Text to theFolderBrowserDialog's
            '    SelectedPath property.
            Dim FSO
            FSO = CreateObject("Scripting.FileSystemObject")
            FSO.CopyFile("C:\Documents and Settings\Liam\Desktop\v2.0 (W.O Verification)\PatchHelperFiles\PatchHelperCL.txt", "USER SPECIFIED DIRECTORY HERE") ' is this right? if now how would i do it?
        End If

I dont know if that is right but i think it is.


Please can someone help me



Thanks

Liam

[JackOfAllTrades]

Visual Basic 2010 is NOT VB6, it's VB.NET.

Moved.

[L14M333]

JackOfAllTrades, on 11 May 2010 - 08:24 AM, said:

Visual Basic 2010 is NOT VB6, it's VB.NET.

Moved.

sorry, didn't realise i was in VB6

[_HAWK_]

Something like this:

Imports System.IO 'at the top

Dim fbd As New FolderBrowserDialog
   'set your properties
If fbd.ShowDialog() = DialogResult.OK Then
  Dim destDir As New DirectoryInfo(fbd.SelectedPath)
  Dim sourceDir As New DirectoryInfo("C:\Documents and Settings\Liam\Desktop\v2.0 (W.O Verification)\PatchHelperFiles\")
  For Each file As FileInfo In sourceDir.GetFiles
    file.CopyTo(Path.Combine(destDir.FullName, file.Name))
  Next
End If

[L14M333]

hawkvalley1, on 11 May 2010 - 09:12 AM, said:

Something like this:

Imports System.IO 'at the top

Dim fbd As New FolderBrowserDialog
   'set your properties
If fbd.ShowDialog() = DialogResult.OK Then
  Dim destDir As New DirectoryInfo(fbd.SelectedPath)
  Dim sourceDir As New DirectoryInfo("C:\Documents and Settings\Liam\Desktop\v2.0 (W.O Verification)\PatchHelperFiles\")
  For Each file As FileInfo In sourceDir.GetFiles
    file.CopyTo(Path.Combine(destDir.FullName, file.Name))
  Next
End If

Thank you! that helped a lot! just one more thing i know it gets the files from "C:\Documents and Settings\Liam\Desktop\v2.0 (W.O Verification)\PatchHelperFiles\" but, if im distributing this program the files will hopefully be embedded into the program. how would i do that? i have read certain things but it all confuses me... if its not too had please can someone explain how i would.


Thanks

Liam

[code_junkie83]

What have you read that confuses you? I would think you could access it via Resources, if the files are embedded in the project.

[_HAWK_]

If you use just the filename it assumes it's in the executable folder. Where your exe lives, and this converts over just fine after publish.

[L14M333]

hawkvalley1, on 11 May 2010 - 11:18 AM, said:

If you use just the filename it assumes it's in the executable folder. Where your exe lives, and this converts over just fine after publish.

Ok. thanks for that... is there a way to embed the files into the exe though? and how would i go about loading them?

Liam

[_HAWK_]

If you place the files in the folder holding your exe - the ...\bin\Debug\ then when you build it those files go with it. Then
Dim fi As New FileInfo("yourfilename.txt") will be assessable by this same method, but have a different location path when your debugging.