Forum / Bits und Bytes / [VB6]Musik einsortier Programm

Community

Szene & News

Parties

Fotos

Locations

Impressum

Forum / Bits und Bytes

[VB6]Musik einsortier Programm

DJ-Lix

Halbprofi (offline)

Dabei seit 03.2009
345 Beiträge

Geschrieben am: 11.04.2009 um 13:04 Uhr
Zuletzt editiert am: 11.04.2009 um 13:05 Uhr

Hallo
Da ich mir sehr viel Musik kaufe und alle in einen Ordner speichere will ich nun ein Programm Programmieren was mir dabei Hilft, die Musik einzuordnen.

Meine Musikeinteilung ist schonmal so->
Musik
-Electro
--A
--B
--C
-- ...
-House
--A
--B
--C

Und das Programm soll dann Die Lieder einlesen, den 1. Buchstabe als Verzeichnis name nehmen und ins Verzeichnis Kopieren.

Meine Probleme liegen derzeit beim Einlesen eines Verzeichnisses.
Hoffe auf Antworten :)

[zustimmen]

I ♥ Deadmau5

-_-TT-_-

- 33
Anfänger (offline)

Dabei seit 04.2009
5 Beiträge

Geschrieben am: 11.04.2009 um 13:09 Uhr

Mit VB 08 wäre das vielleicht etwas ... aktueller. Ich programmier nur in VB08 und C# ... Aber VB6 und VB08 sind ja sehr ähnlich ...

Zeig mal ein paar Screens wie du es haben willst und deinen Code für die jeweilige Form.

[zustimmen]

Sein oder nicht sein, das ist hier die Frage.

DJ-Lix

Halbprofi (offline)

Dabei seit 03.2009
345 Beiträge

Geschrieben am: 11.04.2009 um 13:11 Uhr

Ich habe vor etwa 3 Jahren mit VB6 Angefangen.. Deswegen noch das etwas ältere VB6. Ich lerne zz C++ bin da aber noch anfänger...

Ich mach gleich ma paar Screens...

[zustimmen]

I ♥ Deadmau5

-_-TT-_-

- 33
Anfänger (offline)

Dabei seit 04.2009
5 Beiträge

Geschrieben am: 11.04.2009 um 13:13 Uhr

Zitat von DJ-Lix:

Ich habe vor etwa 3 Jahren mit VB6 Angefangen.. Deswegen noch das etwas ältere VB6. Ich lerne zz C++ bin da aber noch anfänger...

Ich mach gleich ma paar Screens...

Achso ja dann :-)

Ich dachte du bist vollkommen Neuling ... Dann wäre es halt besser wenn man neue Versionen verwendet. Wer aber damals mit VB6 angefangen hat sollte nihct mehr wechseln ... Obwohl großen Unterschied gibts ja nicht.

Ja mach mal Screens.

[zustimmen]

Sein oder nicht sein, das ist hier die Frage.

DJ-Lix

Halbprofi (offline)

Dabei seit 03.2009
345 Beiträge

Geschrieben am: 11.04.2009 um 13:22 Uhr

Hier sind mal die Verzeichnisse...
So und wenn ich jetzt Musik online Kaufe, dann kommt das in ein Standart-Verzeichnis zB Electro wo ich dann die neuen Lieder ansammle. Wenn sie dann Älter sind will ich es mitm Programm dort dann ins Verzeichnis kopieren. Dass soll ungefähr so abgehen:

Der Track heist zB. Hampenberg - The Horn (Club Mix) und ist im Verzeichnis electro aum Desktop. Dann soll das Programm das lied einlesen, den Anfangsbuchstaben (da jetzt "H") einlesen und dann ins Verzeichniss "J:\Electro\H" kopieren.

Mein Problem liegt immernoch darin dass es nicht nur 1 Track ist sondern ma 500 oder sogar ma 1500-2000 sind.

Hoffe dass mir jemand Helfen kann :)

[zustimmen]

I ♥ Deadmau5

BurkieWN

- 40
Anfänger (offline)

Dabei seit 02.2006
25 Beiträge

Geschrieben am: 11.04.2009 um 13:29 Uhr
Zuletzt editiert am: 11.04.2009 um 13:37 Uhr

hi

verwende die "Len()" und "Mid()" -funktion um den Buchstaben der Datei abzufragen.

Anschließend den erkannten Buchstaben als Variable in deine Copy Directory mit & anfügen und fertig.

Grüße

:edit

also:
AnzahlderZeichen = Len(Dateiname) // brauchst eig. nicht abfragen .. da dich ja nur die erste Stelle interessiert.....

Buchstabe = Mid(Dateiname, 1, 1)

...und dann wie erwähnt einfach in deine dir kopieren und hinten jetzt
Verzeichnis = VerzeichnisHouse & "\" &Buchstabe

[zustimmen]

DJ-Lix

Halbprofi (offline)

Dabei seit 03.2009
345 Beiträge

Geschrieben am: 11.04.2009 um 13:37 Uhr

Ok das hört sich schonmal gut an...
aber die Auflistunf der Daten ist noch etwas Komplitziert...
Hoffe da kann mir noch einer Helfen :)

[zustimmen]

I ♥ Deadmau5

BurkieWN

- 40
Anfänger (offline)

Dabei seit 02.2006
25 Beiträge

Geschrieben am: 11.04.2009 um 13:40 Uhr

?

Du meinst das einfach alle dateien in einem Temp verzeichnis erfasst und abgearbeitet werden?

Naja einfach in deinem Temp ordner alle dateinamen in einem array aus den Dateinamen einlesen und dann diese einzeln mit der beschriebenen funktion auf den ersten buchstaben prüfen und kopieren.

Ich denke du willst jetzt das selbst machen und nur hinweise...darum sollte dir das hoffentlich helfen.
Grüße

[zustimmen]

DJ-Lix

Halbprofi (offline)

Dabei seit 03.2009
345 Beiträge

Geschrieben am: 11.04.2009 um 13:45 Uhr

ja kar.. soweit war ich auch schon... nur wie sollte ich das denn anstellen??
Kann ich dass mit dem FileListBox oder geht das auch einfacher.. den das arbeiten mit der FileListBox check ich nicht ganz Durch... also dass es eins nach dem anderen Macht..

[zustimmen]

I ♥ Deadmau5

BurkieWN

- 40
Anfänger (offline)

Dabei seit 02.2006
25 Beiträge

Geschrieben am: 11.04.2009 um 14:02 Uhr

Sub Datei_Liste()
Const VERZEICHNIS = "d:\data\dateisystem\"

' --- Zugriff auf ein Dateiverzeichnis
Dim d As DirectoryInfo
d = New DirectoryInfo(VERZEICHNIS)

' --- Prüfung auf Existenz
If Not d.Exists Then
out("Verzeichnis nicht vorhanden!")
Exit Sub
End If

' --- Ausgabe von Informationen über den Ordner
out("Erzeugt am: " & d.CreationTime)
out("Zuletzt gelesen am : " & d.LastAccessTime)
out("Zuletzt geändert am : " & d.LastWriteTime)
out("Wurzelordner: " & d.Root.Name)
out("Name des übergeordneten Ordners: " & _
d.Parent.Name)
out("Pfad des übergeordneten Ordners: " & _
d.Parent.FullName)

' --- Liste bestimmter Dateien
Dim f As FileInfo
out("Alle Text-Dateien in Ordner: " & _
d.FullName)
For Each f In d.GetFiles("*.txt")
out(f.Name & ";" & f.Length() & ";" & _
f.CreationTime())
Next

End Sub

[zustimmen]

[Antwort schreiben]

Forum / Bits und Bytes