Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Visual Basic Dateinamen automatisch ändern.
zurück: Dateien schnell wiederfinden weiter: Adobe Livecycle - Hyperlink auf Word-Datei möglich? Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
jasonmorley
Excel-Spieler, Videograph


Verfasst am:
31. Jan 2011, 18:31
Rufname: Ben Köster
Wohnort: Meinerzhagen, Germany

Visual Basic Dateinamen automatisch ändern. - Visual Basic Dateinamen automatisch ändern.

Nach oben
       

Hallo,
ich möchte Folgendes. Ich bennene Dateien (automatisch mit VB) um und verschiebe sie in einen Ordner. Wenn aber in diesem Ordner diese Datei (also der Dateiname) schon vorhanden ist, dann wird z.B. aus "8.1.mp4" -->"8.1.1.mp4" Soweit sogut. Dass funktioniert einfach mit "If" Jetzt soll VB aber, wenn auch diese Datei (8.1.1.mp4) schon vorhanden ist die nächste Datei "8.1.2.mp4" nennen. Dies soll beliebig oft passieren könne. Eigentlich müsste Vb einfach nur die Datei 8.1...usw raussuchen und gucken welche Datei im Ordner an der Stelle wo jetzt die dritte Zahl steht den höchsten Wert im Ordner nehmen und für die nächste Datei +1 rechnen. Ich möchte nur wissen. Wie man in einem Ordner die Datei raussucht, dessen Wert an ... Stelle der höchste ist. Wie geht das? Vielen Dank schonmal. Sehr kompliziert, ich weiß (tut mir leid Embarassed )
Gruß

Ben
jasonmorley
Excel-Spieler, Videograph


Verfasst am:
31. Jan 2011, 19:06
Rufname: Ben Köster
Wohnort: Meinerzhagen, Germany


AW: Visual Basic Dateinamen automatisch ändern. - AW: Visual Basic Dateinamen automatisch ändern.

Nach oben
       

Hallo nochmal,
ich hab es gerade selber gelöst Very Happy
Aber vielen vielen Dank. Ihr hättet das mit Sicherheit auch hingekriegt der Code ist jetzt übrigens:
Code:
Private Sub Outtake_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Outtake.Click
    Dim stre As IO.StreamReader
    Dim platzhalter
    Dim wert
    Dim Version = 1

    stre = New IO.StreamReader("C:\Users\Ben\documents\Szenenordner\output_values.txt")
    platzhalter = stre.ReadLine()
    wert = stre.ReadLine()
    If Dir(wert & "\" & "OT " & Part.Value & "." & szenenn.Value & IO.Path.GetExtension(ListBox1.SelectedItem)) = "" Then
        FileIO.FileSystem.CopyFile(ListBox1.SelectedItem.ToString, wert & "\" & "OT " & Part.Value & "." & szenenn.Value & IO.Path.GetExtension(ListBox1.SelectedItem))
      Else
        If Dir(wert & "\" & "OT " & Part.Value & "." & szenenn.Value & ".1" & IO.Path.GetExtension(ListBox1.SelectedItem)) = "" Then
            FileIO.FileSystem.CopyFile(ListBox1.SelectedItem.ToString, wert & "\" & "OT " & Part.Value & "." & szenenn.Value & ".1" & IO.Path.GetExtension(ListBox1.SelectedItem))
          Else
            Do Until Dir("C:\Users\Ben\Desktop\OUT\OT 2.1." & Version & ".mp4") = ""
                Version = Version + 1
            Loop
            FileIO.FileSystem.CopyFile(ListBox1.SelectedItem.ToString, wert & "\" & "OT " & Part.Value & "." & szenenn.Value & "." & Version & IO.Path.GetExtension(ListBox1.SelectedItem))
        End If
    End If
    My.Computer.FileSystem.DeleteFile (ListBox1.SelectedItem.ToString)
    BindingSource1.Remove (ListBox1.SelectedItem)
End Sub

Gruß Ben
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Visual Studio und dotNet Forum: Mit Visual Studio 2010 ein AddIn für Word 2010 erstellen 3 Jürgen Z 398 04. Feb 2014, 12:52
KleinesA Mit Visual Studio 2010 ein AddIn für Word 2010 erstellen
Keine neuen Beiträge Software Forum (Sonstige Software): automatisch bestimmte IP setzen 0 Guybrush junior 143 06. Jan 2014, 19:55
Guybrush junior automatisch bestimmte IP setzen
Keine neuen Beiträge Windows Vista & Windows 7 Forum: Focus im Windows-Explorer ändern? 0 Daktari 133 03. Jan 2014, 10:25
Daktari Focus im Windows-Explorer ändern?
Keine neuen Beiträge Visual Studio und dotNet Forum: Visual Studio Express kostenlos oder Testversion??? 2 Ephedra 1192 15. Nov 2012, 12:15
Ephedra Visual Studio Express  kostenlos oder Testversion???
Keine neuen Beiträge Sicherheit: Excel und Word starten automatisch beim Anschalten des Mac 1 Mina479 1678 10. Feb 2012, 16:13
GoDhAnD Excel und Word starten automatisch beim Anschalten des Mac
Keine neuen Beiträge Visual Studio und dotNet Forum: Visual Basic 2010 Express - Drucken mit Druckerauswahl 0 Marsel 3775 04. Feb 2011, 22:11
Marsel Visual Basic 2010 Express - Drucken mit Druckerauswahl
Keine neuen Beiträge Software Forum (Sonstige Software): Visual Studio 2008 statt 'normalen' VBA Editor nutzen 2 Se7en 2180 01. Dez 2010, 18:01
Se7en Visual Studio 2008 statt 'normalen' VBA Editor nutzen
Keine neuen Beiträge Visual Studio und dotNet Forum: Drucker festlegen: Visual Basic Express 2010 UVB 0 Marsel 2757 19. Aug 2010, 22:32
Marsel Drucker festlegen: Visual Basic Express 2010 UVB
Keine neuen Beiträge Software Forum (Sonstige Software): Explorer stürtzt ab beim ändern der Rechte 0 Gast 510 15. Jun 2010, 21:22
Gast Explorer stürtzt ab beim ändern der Rechte
Keine neuen Beiträge Software Forum (Sonstige Software): Wie starte ich Visual Basic 2008 Express? 1 Marz 2450 29. Apr 2010, 09:03
maninweb Wie starte ich Visual Basic 2008 Express?
Keine neuen Beiträge Hardware & Betriebssystem Forum: Xp enlisch in deutsch ändern 4 mathmanne 1419 27. Okt 2009, 00:03
mathmanne Xp enlisch in deutsch ändern
Keine neuen Beiträge Software Forum (Sonstige Software): Seitengröße ändern in Adobe Prof 0 Larsanna 2924 27. März 2009, 16:31
Larsanna Seitengröße ändern in Adobe Prof
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Macromedia Dreamweaver