I need to copy all files selected by the user to a directory called out as a variable (DirX). My.("c:\fabriwin\ncfiles\").GetFiles("*.nc").OrderByDescending(Function(f) f.LastWriteTime).ToList I have a listbox that is filled with file names within a folder using this method: You might want to import System.IO and System.IO.Path to save a bit of typing. IO.File.Copy(fi.FullName, targetFilePath, True) In the following, I'm not using a ListBox or any control, but you should be able to get the general idea: The listbox only shows the file name not the path, but all of the files are from the same folder. MessageBox.Show("You have not selected any files to copy." & vbCrLf & "Please try again.") IO.File.Copy(Path.Combine(SourceFolder, ListBox1.SelectedItems(i).ToString), Path.Combine(FBD.SelectedPath, ListBox1.SelectedItems(i).ToString)) IO.File.Copy(Path.Combine(SourceFolder, ListBox1.SelectedItems(i).ToString), Path.Combine(FBD.SelectedPath, ListBox1.SelectedItems(i).ToString), True) & "Do you want to overwrite it?", "File copy issue.", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning) If File.Exists(Path.Combine(FBD.SelectedPath, ListBox1.SelectedItems(i).ToString)) Thenĭim Result = MessageBox.Show("The File " & ListBox1.SelectedItems(i).ToString & " already exists in " & FBD.SelectedPath & "." & vbCrLf _ If FBD.ShowDialog = Thenįor i = 0 To - 1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ListBox1.SelectionMode = SelectionMode.MultiSimple ListBox1.DataSource = My.(SourceFolder).GetFiles("*.*").OrderByDescending(Function(f) f.LastWriteTime).ToList Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Option Strict Onĭim SourceFolder As String = "C:\Users\John\Desktop\Test1" Other than that IO.File.Copy only has boolean value which can be set to either allow or disallow overwriting of file in destination directory. A Dictionary(Of String, String) could be used or various other options. Then build a list of files based on user response whether they want to overwrite files or not. Knowledge rests not upon truth alone, but upon error also. IO.File.Copy(copy.SourceFilePath, copy.TargetFilePath, True) MessageBoxButtons.YesNo, MessageBoxIcon.Question) = _ "Do you want to overwrite these files?", "Overwrite Files?", _ If MessageBox.Show("One or more of the target files already exists." & _ If IO.File.Exists(copy.TargetFilePath) Then IO.Path.Combine(targetDirectoryPath, fi.Name) IO.Directory.EnumerateFiles(baseDirectoryPath, "*.jpg") Private Sub Form1_Load(ByVal sender As System.Object, _ As an idea, you might consider the following.
0 kommentar(er)
