vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: VB - Daten splitten 
Autor: maartin93
Datum: 22.06.10 15:04

End SubRippler schrieb:
Zitat:

Poste mal deinen Code vom
Splitten-Button



//Hier zählt es die Anzahl Datein des Quellpfad (steht in der Textbox1)

Dim counter As _
System.Collections.ObjectModel.ReadOnlyCollection(Of String)
counter = My.Computer.FileSystem.GetFiles(TextBox1.Text)
TextBox3.Text = counter.Count


If IsNumeric(TextBox4.Text) Then

//Hier wird eine Zahl daraus gemacht und an die Textbox 6 weitergegeben ( das ist die unten Links)

Dim y As Double = CDbl(TextBox4.Text) 'oder Convert.ToDouble(Textbox1.Text)
TextBox6.Text = y.ToString

//Anzahl Datein pro Ordner werden so berechnet
TextBox6.Text = counter.Count / y.ToString

//Hier erstellt es die Ordner (richtige Anzahl)
1: If y.ToString > 0 Then
My.Computer.FileSystem.CreateDirectory _
(TextBox2.Text & "\" & TextBox5.Text & y.ToString)
TextBox7.Text = TextBox2.Text & "\" & TextBox5.Text & y.ToString
My.Computer.FileSystem.CopyDirectory(TextBox1.Text, TextBox7.Text, True)
y = y - 1
GoTo 1

Else
End If
End If

ARSENAL LONDON <33

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
VB - Daten splitten926maartin9322.06.10 14:22
Re: VB - Daten splitten576Rippler22.06.10 14:40
Re: VB - Daten splitten584maartin9322.06.10 15:04
Re: VB - Daten splitten588Rippler22.06.10 15:14
Re: VB - Daten splitten578maartin9322.06.10 15:54
Re: VB - Daten splitten570Zardoz22.06.10 16:50
Re: VB - Daten splitten541maartin9324.06.10 07:25

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel