Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Dateien umbenennen in Serie (z.B. Bilddateien)
zurück: Inner und Outer Join anschaulich weiter: Bug in Access: Scrollbalken in Datasheetview eingefroren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Tutorial Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
kyron9000
Practitioner :)


Verfasst am:
31. Okt 2009, 20:05
Rufname:
Wohnort: Wien

Dateien umbenennen in Serie (z.B. Bilddateien) - Dateien umbenennen in Serie (z.B. Bilddateien)

Nach oben
       Version: Office 2003

Hi,

Hab mir eine DB gebastelt Smile für Dateinamen umbenennen, alle in Serie.
Habe viele Bilddateien, die ich umbenennen muss und das war mir schon lästig bei allen einzeln den Namen zu ändern.

Ja, und diese DB ist das Ergebnis davon.

Vielleicht kann das jemand brauchen, funkt super.

2003DB aber in AC2007 fertig gestellt!

*************************************************

Eine Verbesserung würde ich noch zur Verfügung stellen.
Hab mich bei einem Namen geirrt und bin draufgekommen, da wird es bissi umständlich,
denn 0000 bleibt im Text gleich aber die Zahl 10 100 1000 ändert sich, müssten also der Text auch geändert werden.

ich habe das so gelöst.

ein Wert dimensionieren:

Code:

Dim W As String


und zwischen : 'Ausgabe und Weiter:

den nachstehenden Code anstatt dem bestehenden einfügen.

Code:


    If fncIstDateiVorhanden(strDatei, strPfad) = True Then
    GoTo Weiter:
    Else
   
    If Right(Me.AlterDateiName, 1) = "0" And X >= 10 And X <= 99 Then
    W = Left(Me.AlterDateiName, (Len(Me.AlterDateiName) - 1)) & CStr(X) & Me.ErweiterungAlt]
    If fncIstDateiVorhanden(W, strPfad) = True Then
    AlterName = Me.[LaufwerkAlt] & Me.[AlterPfad] & "\" & Left(Me.AlterDateiName, (Len(Me.AlterDateiName) - 1)) & CStr(X) & Me.[ErweiterungAlt]
    GoTo Ändern:
    End If
    End If
   
    If Right(Me.AlterDateiName, 2) = "0" And X >= 100 And X <= 999 Then
    W = Left(Me.AlterDateiName, (Len(Me.AlterDateiName) - 1)) & CStr(X) & [ErweiterungAlt]
    If fncIstDateiVorhanden(W, strPfad) = True Then
    AlterName = Me.[LaufwerkAlt] & Me.[AlterPfad] & "\" & Left(Me.AlterDateiName, (Len(Me.AlterDateiName) - 2)) & CStr(X) & Me.[ErweiterungAlt]
    GoTo Ändern:
    End If
    End If
   
    If Right(Me.AlterDateiName, 3) = "0" And X >= 1000 And X <= 9999 Then
    W = Left(Me.AlterDateiName, (Len(Me.AlterDateiName) - 1)) & CStr(X) & [ErweiterungAlt]
    If fncIstDateiVorhanden(W, strPfad) = True Then
    AlterName = Me.[LaufwerkAlt] & Me.[AlterPfad] & "\" & Left(Me.AlterDateiName, (Len(Me.AlterDateiName) - 3)) & CStr(X) & Me.[ErweiterungAlt]
    GoTo Ändern:
    End If
    End If
    X = X + 1
    GoTo Anfang:
    End If


das Problem wäre so auch gelöst (für mich Smile ).

_________________
Gruß Alfred...

Es ist nicht immer alles so einfach wie es sich im Moment darstellt...



DateiUmbenennen.zip
 Beschreibung:

Download
 Dateiname:  DateiUmbenennen.zip
 Dateigröße:  67.55 KB
 Heruntergeladen:  177 mal

Willi Wipp
Moderator


Verfasst am:
30. Apr 2010, 02:52
Rufname:
Wohnort: Raum Wiesbaden


AW: Dateien umbenennen in Serie (z.B. Bilddateien) - AW: Dateien umbenennen in Serie (z.B. Bilddateien)

Nach oben
       Version: Office 2003

{Dieser Beitrag nimmt das Thema aus den unbeantworteten Themen heraus}
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 Access Tabellen & Abfragen: LEFT JOIN A ON A=B !!!AND!!! wie?! 9 akdes 160 23. Jan 2014, 03:26
Gast LEFT JOIN A ON A=B !!!AND!!! wie?!
Keine neuen Beiträge Access Tabellen & Abfragen: Import von XML Dateien 1 26toto26 1060 27. Mai 2011, 18:04
Gast Import von XML Dateien
Keine neuen Beiträge Access Tabellen & Abfragen: Wenn Feld xy B dann ändere das Feld yy zu = 0 1 GTV 181 19. Mai 2011, 18:30
Nouba Wenn Feld xy B dann ändere das Feld yy zu = 0
Keine neuen Beiträge Access Tabellen & Abfragen: Dateien einlesen 1 Jin Jin 201 19. Mai 2011, 12:19
lothi Dateien einlesen
Keine neuen Beiträge Access Tabellen & Abfragen: Verknüpfung großer csv Dateien. 1 nakoda 405 29. Apr 2011, 17:12
Gast Verknüpfung großer csv Dateien.
Keine neuen Beiträge Access Tabellen & Abfragen: Feld Automatisch aus 2 Feldern füllen A + B = "A+B" 10 ifrankie 290 14. Apr 2011, 21:19
Gast Feld Automatisch aus 2 Feldern füllen A + B = "A+B"
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellenerstellungsabfrage -> Feldname umbenennen 2 Gast 1038 06. Dez 2010, 16:33
Gast Tabellenerstellungsabfrage -> Feldname umbenennen
Keine neuen Beiträge Access Tabellen & Abfragen: Einige Fragen z.B. Eingabe einer ArtNo und Anzeigen 1 IocusDiabolo 204 13. Nov 2009, 17:54
KlausMz Einige Fragen z.B. Eingabe einer ArtNo und Anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfragekriterium über Formular steuern z.B. >0;<0;< 6 tigerentep 611 06. Sep 2009, 21:07
tigerentep Abfragekriterium über Formular steuern z.B. >0;<0;<
Keine neuen Beiträge Access Tabellen & Abfragen: Auswertung von mehreren Excel Dateien:Mit Excel oder Access? 2 rrrrainerrr 511 26. Aug 2009, 14:00
rrrainerrrrr Auswertung von mehreren Excel Dateien:Mit Excel oder Access?
Keine neuen Beiträge Access Tabellen & Abfragen: Öffnen und bearbeiten von Outlook pst Dateien mit VBA 0 Moemmes 2392 09. Jun 2009, 16:28
Moemmes Öffnen und bearbeiten von Outlook pst Dateien mit VBA
Keine neuen Beiträge Access Tabellen & Abfragen: Fehlerhaftes einlesen von Dateien 0 peterchenpan 294 22. Sep 2008, 00:31
peterchenpan Fehlerhaftes einlesen von Dateien
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe