Automatikprogramm

andrenaether · 7. September 2016, 12:32

Ich muss sagen ich bin ziemlich neu hier und habe mich hier viel belesen,Doch jetzt komme ich an meine Grenzen. Das Projekt was ich erstellen möchte ist ein Programm zu schreiben was mir automatisch aus einer Bestellnummer und Auftragsnummer einen Ordnernamen erstellt. So weit habe ich dies hinbekommen. Das Programm soll ausschließlich zur Verwaltung von Teileparteien bzw. Rohlaserdateien Verantwortlich sein.

Ich habe irgendwo ein Paar Fehler drin....
Zu meinem Problem:
Ich habe 3 Ordner Einmal einen mit dem Namen: Neuen Ordner ...... Einen mit dem Namen: Temp Ordner ...... Und einen Ordner auf einem Server (Laser) die Daten die im (Neuen Ordner) sind werden in einem Externen Programm umgewandelt und in Temp geschrieben ; , jetzt wollte ich das das Programm Wenn die Daten Bearbeitet wurden und in Temp Geschrieben wurden , von Temp in den Ordner: Laser auf den Server verschiebt das Problem ist welchen Pfad Gebe ich an weil der Name setzt sich jedesmal neu Wie im Code Beschrieben durch Auftrags text und Bestell text zusammen Also immer anders. Bsp: Bestnr:1234 Auftragsnr: 456789 = Ordnername: 1234456789.

Mit einer Checkbox will ich ereichen das der neue Ordner automatich mit gelöscht wird wenn ich den Button Bestellung schreiben Drücke. Ich Hoffe mir kann hier jemand Helfen

Gruss Andre

Spoiler anzeigen

VB.NET-Quellcode

Imports System.IO
Public Class Laserautomatik
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs)
End Sub
' Bestellnummer und Auftragsnummer zusammenführen
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim tb_Tb_1Bestell As String = (Tb_1Bestell.Text)
Dim tb_Tb_2Auftrag As String = (Tb_2Auftrag.Text)
Tb_3Ordner.Text = Tb_1Bestell.Text & Tb_2Auftrag.Text
End Sub
Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs)
End Sub
Private Sub Tb_1Bestell_TextChanged(sender As Object, e As EventArgs)
End Sub
Private Sub Tb_3Ordner_TextChanged(sender As Object, e As EventArgs) Handles Tb_3Ordner.TextChanged
Tb_3Ordner.Text = Tb_1Bestell.Text & Tb_2Auftrag.Text
End Sub
' Prüfung, ob Ordner existiert und ggf. anlegen (Rohrlaser-Ordner)
Private Sub Ordnerneu_Click(sender As Object, e As EventArgs) Handles Ordnerneu.Click
MsgBox("Ordner Erstellt")
If IO.Directory.Exists("C:\Users\Home\Desktop\Rohrlaser\" & Tb_1Bestell.Text & " " & Tb_2Auftrag.Text) Then
MsgBox("Bestellung-Ordner schon vorhanden !!!")
End If
IO.Directory.CreateDirectory("C:\Users\Home\Desktop\Rohrlaser\" & Tb_1Bestell.Text & " " & Tb_2Auftrag.Text)
End Sub
Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
End Sub
Private Sub Tb_1Bestell_MaskInputRejected(sender As Object, e As MaskInputRejectedEventArgs) Handles Tb_1Bestell.MaskInputRejected
End Sub
Private Sub MenuStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
End Sub
Private Sub Button2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Button2.KeyPress
End Sub
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
End Sub
Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterSelect
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
Handles Laufwerk.Click
Dim di As System.IO.DirectoryInfo = New System.IO.DirectoryInfo("C:\Users\Home\Desktop\Temp\")
Dim node As TreeNode = TreeView1.Nodes.Add(di.Name)
Dim subnode As TreeNode = Nothing
For Each subdir As System.IO.DirectoryInfo In di.GetDirectories
subnode = node.Nodes.Add(subdir.Name)
FillNode(subnode, subdir)
Next
MessageBox.Show("Ich bin fertig!")
End Sub
Private Sub FillNode(ByVal node As TreeNode, ByVal DirectoryName As _
System.IO.DirectoryInfo)
Dim subnode As TreeNode = Nothing
Try
For Each subdir As System.IO.DirectoryInfo In
DirectoryName.GetDirectories
subnode = node.Nodes.Add(subdir.Name)
FillNode(subnode, subdir)
Next
Application.DoEvents()
Catch ex As Exception
End Try
End Sub
Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs)
End Sub
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button5.Click
MsgBox("Alle Dateien verschoben")
Dim SourcePath As String = "C:\Users\Home\Desktop\Temp Laser" 'Ausgangsordner
Dim DestPath As String = "C:\Users\Home\Desktop\Rohrlaser\" 'Zielordner
If IO.Directory.Exists(SourcePath) Then
For Each Dir As IO.DirectoryInfo In New IO.DirectoryInfo(SourcePath).GetDirectories("*", IO.SearchOption.AllDirectories)
If Not IO.Directory.Exists(Dir.FullName.Replace(SourcePath, DestPath)) Then
IO.Directory.CreateDirectory(Dir.FullName.Replace(SourcePath, DestPath))
End If
For Each File As IO.FileInfo In Dir.GetFiles
File.MoveTo(IO.Path.Combine(DestPath & "\", File.Name))
Next
Next
Else
MsgBox("Pfad nicht gefunden")
End If
End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
End Sub
End Class

RodFromGermany · 7. September 2016, 12:35

@andrenaether Willkommen im Forum. :thumbup:

Falls Du Deinen 1. Post auch unleserlich findest, editiere ihn bitte, selektiere den Quellcode und drück den entsprechenden Code-Button über dem edit-Feld.
---
Mit welchen Textbox-Inhalten sollen welche Pfade generiert werden?
Poste mal bitte 2 oder 3 signifikente Beispiele.

andrenaether · 7. September 2016, 12:58

Danke dir

Fakiz · 7. September 2016, 13:21

Guck dir mal die Environment-Klasse an diese Klasse stellt dir Umgebungsvariablen zur Verfügung. Den Pfad zu dem Verzeichniss in dem die Ordner erstellt werden sollen würde ich global als DirectoryInfo deklarieren. Dann kannst du mit der Klasse Path bzw. dessen Methode Combine relativ einfach einen neuen Pfad erstellen.

andrenaether · 7. September 2016, 14:31

Guck dir mal die Environment-Klasse an diese Klasse stellt dir Umgebungsvariablen zur Verfügung. Den Pfad zu dem Verzeichniss in dem die Ordner erstellt werden sollen würde ich global als DirectoryInfodeklarieren. Dann kannst du mit der Klasse Path bzw. dessen Methode Combine relativ einfach einen neuen Pfad erstellen....

Sorry Leute ich stecke echt noch in den Kinderschuhen ..... Hätte mal jemand ein Beispiel ....

Fakiz · 7. September 2016, 14:39

VB.NET-Quellcode

Private diTempLaser As System.IO.DirectoryInfo, diRohrLaser As System.IO.DirectoryInfo
Private Sub Form1_Load(sender As Object, e As EventArgs)
Dim strDesktop As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
diRohrLaser = New System.IO.DirectoryInfo(System.IO.Path.Combine(strDesktop, "Rohrlaser"))
diTempLaser = New System.IO.DirectoryInfo(System.IO.Path.Combine(strDesktop, "Temp Laser"))
End Sub

RodFromGermany · 7. September 2016, 14:40

andrenaether schrieb:

Hätte mal jemand ein Beispiel

RodFromGermany schrieb:

Poste mal bitte 2 oder 3 signifikente Beispiele.

Poste doch zunächst mal das, was Du haben willst, damit wir uns hier nicht in purer Annamologie und Glaskugelweitwurf ergehen müssen.

andrenaether · 7. September 2016, 15:30

Vielleicht Hilft das etwas einen überblick zu bekommen

Fakiz · 7. September 2016, 16:09

Und wo hängt es jetzt? Weisst du nicht wie du die Ordner erstellen sollst?

andrenaether · 7. September 2016, 16:18

Fakiz schrieb:

Und wo hängt es jetzt? Weisst du nicht wie du die Ordner erstellen sollst?

Genau....Auch das verschieben klappt nicht mal ansatzweise...

Fakiz · 7. September 2016, 16:24

VB.NET-Quellcode

IO.Path.Combine(DestPath & "\", File.Name) 'Das ergibt "DestPath\\File.Name"

Guck dir mal an wie ich das gemacht habe.

Spoiler anzeigen

VB.NET-Quellcode

IO.Directory.CreateDirectory(diTempLaser.FullName)

Erstellt das Verzeichniss

PS:

VB.NET-Quellcode

If Not IO.Directory.Exists(Dir.FullName.Replace(SourcePath, DestPath)) Then
IO.Directory.CreateDirectory(Dir.FullName.Replace(SourcePath, DestPath))
End If

Hier mit Replace zu arbeiten ist Unfug. Erstell dir wie ich es in meinem obigen Beispiel gezeigt habe 2 DirectoryInfo -Objekte dann kannst du

VB.NET-Quellcode

If Not diTempLaser.Exists() Then
diTempLaser.Create()
End If

Pasta · 7. September 2016, 17:08

Ich fände es gut, wen du erst mal deinen Startpost ordentlich formatierst, so ist das echt einen Zumutung !
Was sollen die ganzen leeren Methoden und überflüssigen Leerzeilen, daß die eher stören, müßte einem doch eigentlich auffallen ?

@ All
Ich frage mich auch, warum so was einfach hingenommen wird, bevor es hier weiter geht, sollte das erst erledigt werden !

andrenaether · 7. September 2016, 18:23

Ich Denke mal so sieht es besser aus

Spoiler anzeigen

VB.NET-Quellcode

Imports System.IO
Public Class Laserautomatik
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs)
End Sub
' Bestellnummer und Auftragsnummer zusammenführen
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim tb_Tb_1Bestell As String = (Tb_1Bestell.Text)
Dim tb_Tb_2Auftrag As String = (Tb_2Auftrag.Text)
Tb_3Ordner.Text = Tb_1Bestell.Text & Tb_2Auftrag.Text
End Sub
Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs)
End Sub
Private Sub Tb_1Bestell_TextChanged(sender As Object, e As EventArgs)
End Sub
Private Sub Tb_3Ordner_TextChanged(sender As Object, e As EventArgs) Handles Tb_3Ordner.TextChanged
Tb_3Ordner.Text = Tb_1Bestell.Text & Tb_2Auftrag.Text
End Sub
' Prüfung, ob Ordner existiert und ggf. anlegen (Rohrlaser-Ordner)
Private Sub Ordnerneu_Click(sender As Object, e As EventArgs) Handles Ordnerneu.Click
MsgBox("Ordner Erstellt")
If IO.Directory.Exists("C:\Users\Home\Desktop\Rohrlaser\" & Tb_1Bestell.Text & " " & Tb_2Auftrag.Text) Then
MsgBox("Bestellung-Ordner schon vorhanden !!!")
End If
IO.Directory.CreateDirectory("C:\Users\Home\Desktop\Rohrlaser\" & Tb_1Bestell.Text & " " & Tb_2Auftrag.Text)
End Sub
Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
End Sub
Private Sub Tb_1Bestell_MaskInputRejected(sender As Object, e As MaskInputRejectedEventArgs) Handles Tb_1Bestell.MaskInputRejected
End Sub
Private Sub MenuStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
End Sub
Private Sub Button2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Button2.KeyPress
End Sub
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
End Sub
Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterSelect
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
Handles Laufwerk.Click
Dim di As System.IO.DirectoryInfo = New System.IO.DirectoryInfo("C:\Users\Home\Desktop\Temp\")
Dim node As TreeNode = TreeView1.Nodes.Add(di.Name)
Dim subnode As TreeNode = Nothing
For Each subdir As System.IO.DirectoryInfo In di.GetDirectories
subnode = node.Nodes.Add(subdir.Name)
FillNode(subnode, subdir)
Next
MessageBox.Show("Ich bin fertig!")
End Sub
Private Sub FillNode(ByVal node As TreeNode, ByVal DirectoryName As _
System.IO.DirectoryInfo)
Dim subnode As TreeNode = Nothing
Try
For Each subdir As System.IO.DirectoryInfo In
DirectoryName.GetDirectories
subnode = node.Nodes.Add(subdir.Name)
FillNode(subnode, subdir)
Next
Application.DoEvents()
Catch ex As Exception
End Try
End Sub
Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs)
End Sub
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button5.Click
MsgBox("Alle Dateien verschoben")
Dim SourcePath As String = "C:\Users\Home\Desktop\Temp Laser" 'Ausgangsordner
Dim DestPath As String = "C:\Users\Home\Desktop\Rohrlaser\" 'Zielordner
If IO.Directory.Exists(SourcePath) Then
For Each Dir As IO.DirectoryInfo In New IO.DirectoryInfo(SourcePath).GetDirectories("*", IO.SearchOption.AllDirectories)
If Not IO.Directory.Exists(Dir.FullName.Replace(SourcePath, DestPath)) Then
IO.Directory.CreateDirectory(Dir.FullName.Replace(SourcePath, DestPath))
End If
For Each File As IO.FileInfo In Dir.GetFiles
File.MoveTo(IO.Path.Combine(DestPath & "\", File.Name))
Next
Next
Else
MsgBox("Pfad nicht gefunden")
End If
End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
End Sub
End Class

RodFromGermany · 7. September 2016, 18:27

@andrenaether Leere Prozeduren sehen niemals besser aus, sie erschweren die Lesbarkeit.
Die Beispiele hast Du immer noch nicht gepostet.

So was:
"Aaa" und "Bbb" ==> "BbblAaa"

Pasta · 7. September 2016, 18:43

Meine Güte, manchmal glaube ich doch, daß die Illuminati was ins Trinkwasser tun.

Längeren Code bitte auch in einen Spoiler packen:

Spoiler anzeigen

VB.NET-Quellcode

Imports System.IO
Public Class Laserautomatik
' Bestellnummer und Auftragsnummer zusammenführen
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim tb_Tb_1Bestell As String = (Tb_1Bestell.Text)
Dim tb_Tb_2Auftrag As String = (Tb_2Auftrag.Text)
Tb_3Ordner.Text = Tb_1Bestell.Text & Tb_2Auftrag.Text
End Sub
Private Sub Tb_3Ordner_TextChanged(sender As Object, e As EventArgs) Handles Tb_3Ordner.TextChanged
Tb_3Ordner.Text = Tb_1Bestell.Text & Tb_2Auftrag.Text
End Sub
' Prüfung, ob Ordner existiert und ggf. anlegen (Rohrlaser-Ordner)
Private Sub Ordnerneu_Click(sender As Object, e As EventArgs) Handles Ordnerneu.Click
MsgBox("Ordner Erstellt")
If IO.Directory.Exists("C:\Users\Home\Desktop\Rohrlaser\" & Tb_1Bestell.Text & " " & Tb_2Auftrag.Text) Then
MsgBox("Bestellung-Ordner schon vorhanden !!!")
End If
IO.Directory.CreateDirectory("C:\Users\Home\Desktop\Rohrlaser\" & Tb_1Bestell.Text & " " & Tb_2Auftrag.Text)
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
Handles Laufwerk.Click
Dim di As System.IO.DirectoryInfo = New System.IO.DirectoryInfo("C:\Users\Home\Desktop\Temp\")
Dim node As TreeNode = TreeView1.Nodes.Add(di.Name)
Dim subnode As TreeNode = Nothing
For Each subdir As System.IO.DirectoryInfo In di.GetDirectories
subnode = node.Nodes.Add(subdir.Name)
FillNode(subnode, subdir)
Next
MessageBox.Show("Ich bin fertig!")
End Sub
Private Sub FillNode(ByVal node As TreeNode, ByVal DirectoryName As _
System.IO.DirectoryInfo)
Dim subnode As TreeNode = Nothing
Try
For Each subdir As System.IO.DirectoryInfo In
DirectoryName.GetDirectories
subnode = node.Nodes.Add(subdir.Name)
FillNode(subnode, subdir)
Next
Application.DoEvents()
Catch ex As Exception
End Try
End Sub
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button5.Click
MsgBox("Alle Dateien verschoben")
Dim SourcePath As String = "C:\Users\Home\Desktop\Temp Laser" 'Ausgangsordner
Dim DestPath As String = "C:\Users\Home\Desktop\Rohrlaser\" 'Zielordner
If IO.Directory.Exists(SourcePath) Then
For Each Dir As IO.DirectoryInfo In New IO.DirectoryInfo(SourcePath).GetDirectories("*", IO.SearchOption.AllDirectories)
If Not IO.Directory.Exists(Dir.FullName.Replace(SourcePath, DestPath)) Then
IO.Directory.CreateDirectory(Dir.FullName.Replace(SourcePath, DestPath))
End If
For Each File As IO.FileInfo In Dir.GetFiles
File.MoveTo(IO.Path.Combine(DestPath & "\", File.Name))
Next
Next
Else
MsgBox("Pfad nicht gefunden")
End If
End Sub
End Class

andrenaether · 7. September 2016, 19:02

Sorry Leute bin erst seid gestern abend hier mit von der Partie.....Aber man ist ja lernfähig..

Pasta · 7. September 2016, 19:10

... Das glaube ich erst, wenn du das Startpost editiert und den code ordentlich formatiert hast !

andrenaether · 7. September 2016, 19:17

Wenn das alles so einfach wäre würde ich nicht hier im Forum sein und euch komische Fragen stellen

RodFromGermany · 7. September 2016, 19:21

andrenaether schrieb:

und euch komische Fragen stellen

Antworte auf unsere Fragen und Dir wird geholfen.

Pasta · 7. September 2016, 19:22

Das ist ganz einfach !
Zum Startpost scrollen, "Bearbeiten" Button drücken, Post anpassen und fertig.

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

5 Benutzer haben hier geschrieben