| |
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 |
|
|
sevGraph (VB/VBA)
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 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
|
|