Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Alle Ordnernamen innerhalb eines Verzeichnisses anpassen
Gehe zu Seite Zurück  1, 2
zurück: Uhrzeit auf einen sheet begerenzen weiter: Einfacher Code? 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
rogstar
learning by doing


Verfasst am:
16. Jan 2012, 16:15
Rufname:
Wohnort: _Hessen_

AW: Alle Ordnernamen innerhalb eines Verzeichnisses anpassen - AW: Alle Ordnernamen innerhalb eines Verzeichnisses anpassen

Nach oben
       Version: Office 2003

Asche auf mein Haupt, das kann auch gar nicht funktionieren. Zweimal Dir klappt so halt nicht.
Versuch es mal so
Code:
Sub alleordnerumbennen()

 Const cstrFolder As String = "d:\test\"
   Dim strOldName$, strNewName$, strFolderNew$, strOldFileName$, strNewFileName$
   
   strOldName = Dir(cstrFolder & "*#*", vbDirectory)
   Do While strOldName <> ""
      strNewName = Replace(strOldName, "#", "Nr")
      Name cstrFolder & strOldName As cstrFolder & strNewName
      strFolderNew = cstrFolder & strNewName & "/"
      Set objFolder = CreateObject("Scripting.FileSystemObject").GetFolder(strFolderNew)
      For Each objFile In objFolder.Files
        strOldFileName = objFile.Name
      Next
      strNewFileName = Replace(strOldFileName, "#", "Nr")
      Name strFolderNew & strOldFileName As strFolderNew & strNewFileName
      strOldName = Dir
   Loop

End Sub

_________________
Gruß, Tobias
DW23
Im Profil kannst Du frei den Rang ändern


Verfasst am:
16. Jan 2012, 16:46
Rufname:


AW: Alle Ordnernamen innerhalb eines Verzeichnisses anpassen - AW: Alle Ordnernamen innerhalb eines Verzeichnisses anpassen

Nach oben
       Version: Office 2003

Also ich trau mich eigentlich kau mnoch zu schreiben dass es nciht 100% funzt Sad

Aktueller Stand ist, Abänderung aller Ordnernamen wie gewünscht. Leider ändert er die Excellisten nicht wie gewollt ab.
Das Programm an sich läuft er aber meistens durch(mit F5 oder F8). Manchmal bringt er direkt nen Fehler in der Zeile.
Code:
Name strFolderNew & strOldFileName As strFolderNew & strNewFileName

wenn ich aber neustarte klappts dann - komisch.
Problem ist aber wie gesagt das fehlende Ändern des Dateinamens. Hoffe du bist noch nicht kurz vorm Verzweifeln.
DW23
Im Profil kannst Du frei den Rang ändern


Verfasst am:
17. Jan 2012, 09:31
Rufname:

AW: Alle Ordnernamen innerhalb eines Verzeichnisses anpassen - AW: Alle Ordnernamen innerhalb eines Verzeichnisses anpassen

Nach oben
       Version: Office 2003

Anscheinend bist du wohl doch verzweifelt. Sad

Wie gesagt das einzige was nicht passt, ist das Ändern des Excel-Filenamens innerhalb des Ordners. Ich kann mir nicht erklären wieso.
rogstar
learning by doing


Verfasst am:
17. Jan 2012, 11:01
Rufname:
Wohnort: _Hessen_

AW: Alle Ordnernamen innerhalb eines Verzeichnisses anpassen - AW: Alle Ordnernamen innerhalb eines Verzeichnisses anpassen

Nach oben
       Version: Office 2003

Hatte gestern leider keine Zeit mehr.
Steht denn mehr als eine Datei in den Ordnern?
Versuch es mal so, hatte das Next an der falschen Stelle.
Code:
Sub alleordnerumbennen()

 Const cstrFolder As String = "d:\test\"
   Dim strOldName$, strNewName$, strFolderNew$, strOldFileName$, strNewFileName$
   
   strOldName = Dir(cstrFolder & "*#*", vbDirectory)
   Do While strOldName <> ""
      strNewName = Replace(strOldName, "#", "Nr")
      Name cstrFolder & strOldName As cstrFolder & strNewName
      strFolderNew = cstrFolder & strNewName & "/"
      Set objFolder = CreateObject("Scripting.FileSystemObject").GetFolder(strFolderNew)
      For Each objFile In objFolder.Files
        strOldFileName = objFile.Name
        strNewFileName = Replace(strOldFileName, "#", "Nr")
        Name strFolderNew & strOldFileName As strFolderNew & strNewFileName
      Next
      strOldName = Dir
   Loop

End Sub

_________________
Gruß, Tobias
DW23
Im Profil kannst Du frei den Rang ändern


Verfasst am:
17. Jan 2012, 11:30
Rufname:

AW: Alle Ordnernamen innerhalb eines Verzeichnisses anpassen - AW: Alle Ordnernamen innerhalb eines Verzeichnisses anpassen

Nach oben
       Version: Office 2003

Hi,

hab ich mir gedacht bzw. heute morgen dann gehofft ;)

Es sind eigentlich immer einige Dateien und Unterordner in den Ordnern. Grundsätzlich ist aber nur eine oder keine xls Datei vorhanden.
DW23
Im Profil kannst Du frei den Rang ändern


Verfasst am:
17. Jan 2012, 11:40
Rufname:

AW: Alle Ordnernamen innerhalb eines Verzeichnisses anpassen - AW: Alle Ordnernamen innerhalb eines Verzeichnisses anpassen

Nach oben
       Version: Office 2003

Also das Teil rennt perfekt, super.

Kannst du mir erklären, was ich bei der Inputbox falsch mache? Ich kann den Pfad wie gewollt eingeben, aber dann passiert nichts.
Code:

Sub alleordnerumbennen()

[b]cstrFolder = InputBox("Bitte Pfad eingeben", "Pfadeingabe")[/b]

   Dim strOldName$, strNewName$, strFolderNew$, strOldFileName$, strNewFileName$
   
   strOldName = Dir(cstrFolder & "*#*", vbDirectory)
   Do While strOldName <> ""
      strNewName = Replace(strOldName, "#", "Nr")
      Name cstrFolder & strOldName As cstrFolder & strNewName
      strFolderNew = cstrFolder & strNewName & "/"
      Set objFolder = CreateObject("Scripting.FileSystemObject").GetFolder(strFolderNew)
      For Each objFile In objFolder.Files
        strOldFileName = objFile.Name
        strNewFileName = Replace(strOldFileName, "#", "Nr")
        Name strFolderNew & strOldFileName As strFolderNew & strNewFileName
      Next
      strOldName = Dir
   Loop


End Sub
rogstar
learning by doing


Verfasst am:
17. Jan 2012, 11:58
Rufname:
Wohnort: _Hessen_

AW: Alle Ordnernamen innerhalb eines Verzeichnisses anpassen - AW: Alle Ordnernamen innerhalb eines Verzeichnisses anpassen

Nach oben
       Version: Office 2003

Wahrscheinlich hast du den "\" am Ende vergessen einzugeben.
Mit dieser Version ist das nun egal.
Code:
Sub alleordnerumbennen()
    Dim strOldName$, strNewName$, strFolderNew$, strOldFileName$, strNewFileName$, strFolder$
    Dim objFile As Object, objFolder As Object
   
    strFolder = InputBox("Bitte Pfad eingeben", "Pfadeingabe")
    If Right(strFolder, 1) <> "\" And Right(strFolder, 1) <> "/" Then strFolder = strFolder & "\"
    strOldName = Dir(strFolder & "*#*", vbDirectory)
    Do While strOldName <> ""
        strNewName = Replace(strOldName, "#", "Nr")
        Name strFolder & strOldName As strFolder & strNewName
        strFolderNew = strFolder & strNewName & "/"
        Set objFolder = CreateObject("Scripting.FileSystemObject").GetFolder(strFolderNew)
        For Each objFile In objFolder.Files
            strOldFileName = objFile.Name
            If Right(strOldFileName, 4) = ".xls" Then
                strNewFileName = Replace(strOldFileName, "#", "Nr")
                Name strFolderNew & strOldFileName As strFolderNew & strNewFileName
            End If
        Next
        strOldName = Dir
    Loop

End Sub

_________________
Gruß, Tobias
DW23
Im Profil kannst Du frei den Rang ändern


Verfasst am:
17. Jan 2012, 12:23
Rufname:


AW: Alle Ordnernamen innerhalb eines Verzeichnisses anpassen - AW: Alle Ordnernamen innerhalb eines Verzeichnisses anpassen

Nach oben
       Version: Office 2003

Perfekt! Vielen Dank für deine Hilfe.
Sorry, dass sich das so langgezogen hat.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite Zurück  1, 2
Diese Seite Freunden empfehlen

Seite 2 von 2
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 Excel Formeln: Spaltenindex (Buchstabe) in Formel anpassen ... ? 3 xlPaula 600 14. Okt 2011, 22:35
silex1 Spaltenindex (Buchstabe) in Formel anpassen ... ?
Keine neuen Beiträge Excel Formeln: Zahlenformat anpassen - HIIIILFEEEE!!! 6 doofid 808 10. Feb 2011, 14:53
BennyBlake Zahlenformat anpassen - HIIIILFEEEE!!!
Keine neuen Beiträge Excel Formeln: Formel anpassen bzw. kopieren 4 Marianne 192 03. Okt 2010, 21:10
Marianne Formel anpassen bzw. kopieren
Keine neuen Beiträge Excel Formeln: Formel automatisch an zeile anpassen 7 Gast 493 09. Sep 2010, 08:43
Gast Formel automatisch an zeile anpassen
Keine neuen Beiträge Excel Formeln: Sverweis2 weiter anpassen - Suchbegriff in Zelle enthalten 5 R4V3BROT 2045 23. Jul 2010, 09:27
R4V3BROT Sverweis2 weiter anpassen - Suchbegriff in Zelle enthalten
Keine neuen Beiträge Excel Formeln: Währungen automatisch anpassen 5 mellowman 1506 30. Jun 2010, 14:50
Busta2000 Währungen automatisch anpassen
Keine neuen Beiträge Excel Formeln: Hyperlinks automatisch anpassen 2 Bernibärchen 794 17. März 2010, 09:50
Bernibärchen Hyperlinks automatisch anpassen
Keine neuen Beiträge Excel Formeln: Zellenfarbe anpassen wenn bestimmter Wert in Zelle erscheint 3 Gast 5452 26. Jan 2010, 22:26
shift-del Zellenfarbe anpassen wenn bestimmter Wert in Zelle erscheint
Keine neuen Beiträge Excel Formeln: Auswertung bei variablen Start anpassen 5 andy1971 279 12. Sep 2009, 10:50
andy1971 Auswertung bei variablen Start anpassen
Keine neuen Beiträge Excel Formeln: Dateinamen Verlinkung automatisch anpassen 7 knödelhuber 1522 07. Jul 2009, 15:06
knödelhuber Dateinamen Verlinkung automatisch anpassen
Keine neuen Beiträge Excel Formeln: Dateinamen beim Formelziehen anpassen 8 Jensen@office 389 03. Jun 2009, 16:34
Jensen@office Dateinamen beim Formelziehen anpassen
Keine neuen Beiträge Excel Formeln: Funktion RANG anpassen? 2 Peeti 301 13. März 2009, 21:51
Peeti Funktion RANG anpassen?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme