| |
Fragen und Antworten zur vbarchiv.dllalle Dateien innerhalb eines Ordners umbenennen | | | Autor: hboehm | Datum: 19.02.07 20:01 |
| Hallo,
Ich habe einen Ordner voll audio-dateien, deren Benennung folgendermaßen aussieht:
<3-stellige Zahl>-<interpret>-<titel>-<sinnlose endung>.mp3
ich möchte nun über ein VB-Programm die "3-stellige Zahl" und die "sinnlose endung" aus dem Dateinamen löschen (also Name einlesen und umbenennen)
mein Problem ist nun, dass ich nicht weiss wie ich innerhalb einer schleife nach dem Umbennenen einer Datei zur nächsten springe.
Gibt es einen Befehl mit der jede datei eine bestimmte Nummer erhält?
bitte um Hilfe | |
Re: alle Dateien innerhalb eines Ordners umbenennen | | | Autor: Julian13 | Datum: 12.01.08 22:35 |
| hallo,
wie bekommt man heraus wie die Sinnlose endung heißt ???
wenn man sie z.B. in ein Textfeld eingeben muss, dann geht's in VB 2005 so:
Formular:
Name: Form1
OpenFileDialog:
Name: OpenFileDialog1
TextBox
Name: TextBox1
Button
Name: Button1
Public Class Form1
Private zähler As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Button1.Click
On Error GoTo err
For Each file As String In My.Computer.FileSystem.GetFiles(Me.Text)
zähler += 1
Dim newname As String
For x As Integer = file.Length To 1 Step -1
If Mid(file, x, 1) = "\" Then
newname = Mid(file, x - 1)
Exit Sub
End If
Next
newname = Mid(newname, 3)
For x As Integer = 1 To newname.Length
If Mid(newname, x, textbox1.TextLength) = textbox1.Text Then
Mid(newname, x, textbox1.TextLength) = ""
End If
Next
My.Computer.FileSystem.RenameFile(file, newname)
Next
Exit Sub
err:
openfiledialog1.ShowDialog()
Me.Text = openfiledialog1.SelectedPath
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles MyBase.Load
openfiledialog1.ShowDialog()
Me.Text = openfiledialog1.SelectedPath
End Sub
End Class Gruß Julian13 | |
Re: alle Dateien innerhalb eines Ordners umbenennen | | | Autor: Julian13 | Datum: 13.01.08 15:37 |
| ok sorry, ich probier nächstes mal aufs datum zu schauen | |
| 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 |
|
|
sevWizard für VB5/6
Professionelle Assistenten im Handumdrehen
Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) Weitere InfosTipp des Monats TOP Entwickler-Paket
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|
|
|
Copyright ©2000-2024 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
|
|