Hallo erstmal,
Ausgangs Situation:
Ich habe Eine WindowsForm (Entwurf siehe Screnshot);
2x CheckedListBox
3x Button
1x ProgressBar
Ich möchte;
1. Das die CheckedListBoxen die "Items" aus den Vorhandenen Dateien/Unterordnern aus den gewählten Verzeichnisen darstellen.
2. Das sich das Programm merkt welche "Items" -> Ordner/Dateien ausgewählt wurden und dass diese sich dann in ein anderes Verzeichnis kopieren.
Was ich bis jetzt hin bekommen habe/Ich mir noch erarbeiten will:
Ich kann den CheckedListBoxen zwar sagen gebt den Pfad der Dateien wieder aber nicht "nur den letzten Teil"
Dateien und/oder Ordner Kopieren
Relevanter (teilstück, weil die anderen "Tabs" gehen schon so wie sie sind) Code bisher:
Spoiler anzeigen
Ausgangs Situation:
Ich habe Eine WindowsForm (Entwurf siehe Screnshot);
2x CheckedListBox
3x Button
1x ProgressBar
Ich möchte;
1. Das die CheckedListBoxen die "Items" aus den Vorhandenen Dateien/Unterordnern aus den gewählten Verzeichnisen darstellen.
2. Das sich das Programm merkt welche "Items" -> Ordner/Dateien ausgewählt wurden und dass diese sich dann in ein anderes Verzeichnis kopieren.
Was ich bis jetzt hin bekommen habe/Ich mir noch erarbeiten will:
Ich kann den CheckedListBoxen zwar sagen gebt den Pfad der Dateien wieder aber nicht "nur den letzten Teil"
Dateien und/oder Ordner Kopieren
Relevanter (teilstück, weil die anderen "Tabs" gehen schon so wie sie sind) Code bisher:
VB.NET-Quellcode
- Imports System
- Imports System.IO
- Public Class mainForm
- Dim _CSC As String
- Dim _T9DB As String
- Dim _ValuePath As String
- Dim _Path As String
- Dim _FixedPath As String = My.Application.Info.DirectoryPath
- Dim _SolutionPath As String = _FixedPath + "Solution"
- Dim _TempPath As String = Path.Combine(My.Application.Info.DirectoryPath, "Temp")
- Dim _DataPath As String = Path.Combine(My.Application.Info.DirectoryPath, "Data")
- Private Sub mainForm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
- 'Befüllen der Steuerelemente
- XT9CheckedListBox.Items.AddRange(IO.Directory.GetFiles(Path.Combine(_DataPath, "T9DB")))
- languageCheckedListBox.Items.AddRange(IO.Directory.GetDirectories(Path.Combine(_DataPath, "CSC")))
- End Sub
- Private Sub readIn2Button_Click(sender As System.Object, e As System.EventArgs) Handles readIn2Button.Click
- _ValuePath = _CSC
- _Path = Path.Combine(My.Application.Info.DirectoryPath, _ValuePath)
- _CSC = CStr(languageCheckedListBox.SelectedItem)
- _T9DB = CStr(XT9CheckedListBox.SelectedItem)
- End Sub
- Private Sub build2Button_Click(sender As System.Object, e As System.EventArgs) Handles build2Button.Click
- build2ProgressBar.Value = +10
- My.Computer.FileSystem.CreateDirectory((Path.Combine(My.Application.Info.DirectoryPath, "\Temp")))
- build2ProgressBar.Value = +20
- 'Daten werden kopiert
- My.Computer.FileSystem.CopyFile(Path.Combine(My.Application.Info.DirectoryPath, "Data\CSC\customer.xml"), Path.Combine(My.Application.Info.DirectoryPath, "Temp\customer.xml"), True)
- build2ProgressBar.Value = +30
- 'Daten werden kopiert
- My.Computer.FileSystem.CopyFile( _
- Path.Combine(My.Application.Info.DirectoryPath, "Data\CSC\others.xml"), Path.Combine(My.Application.Info.DirectoryPath, "Temp\others.xml"), True)
- build2ProgressBar.Value = +40
- 'Daten werden kopiert
- My.Computer.FileSystem.CopyFile( _
- Path.Combine(My.Application.Info.DirectoryPath, "Data\CSC\sales_code.dat"), Path.Combine(My.Application.Info.DirectoryPath, "Temp\sales_code.dat"), True)
- build2ProgressBar.Value = +50
- 'Daten werden kopiert
- My.Computer.FileSystem.CopyDirectory(_Path, _TempPath, True)
- build2ProgressBar.Value = +100
- MsgBox("Vorgang erfolgreich Abgeschlossen.", MsgBoxStyle.Information)
- End Sub
- Private Sub clean2Button_Click(sender As System.Object, e As System.EventArgs) Handles clean2Button.Click
- 'Verzeichnisstruckturen werden bereinigt
- If My.Computer.FileSystem.DirectoryExists(Path.Combine(My.Application.Info.DirectoryPath, "\Solution")) Then
- My.Computer.FileSystem.DeleteDirectory(Path.Combine(My.Application.Info.DirectoryPath, "\Solution"), FileIO.DeleteDirectoryOption.DeleteAllContents)
- End If
- If My.Computer.FileSystem.DirectoryExists(Path.Combine(My.Application.Info.DirectoryPath, "\Temp")) Then
- My.Computer.FileSystem.DeleteDirectory(Path.Combine(My.Application.Info.DirectoryPath, "\Temp"), FileIO.DeleteDirectoryOption.DeleteAllContents)
- End If
- End Sub
- End Class
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „IluminatHALO04“ ()