Thema Datum  Von Nutzer Rating
Antwort
05.12.2017 13:35:48 Michael Eisbach
NotSolved
05.12.2017 14:25:06 RPP63
NotSolved
05.12.2017 14:29:52 Gast46330
NotSolved
05.12.2017 14:40:43 Gast73981
NotSolved
Rot Umbenennen von CSV Dateien
05.12.2017 14:42:31 SJ
NotSolved
05.12.2017 14:58:36 Michael Eisbach
NotSolved
05.12.2017 15:07:19 SJ
NotSolved
05.12.2017 15:18:59 Michael Eisbach
NotSolved
05.12.2017 15:24:30 SJ
NotSolved
05.12.2017 15:39:10 Michael Eisbach
NotSolved
05.12.2017 15:41:45 SJ
NotSolved
05.12.2017 15:46:32 Michael Eisbach
NotSolved

Ansicht des Beitrags:
Von:
SJ		 Datum:
05.12.2017 14:42:31		 Views:
952		 Rating:
     
Antwort:
  Ja
Thema:
Umbenennen von CSV Dateien

Hallo,

eine weitere Möglichkeit:

Option Explicit

'//Verweise
'//Microsoft Scripting Runtime

Private Const C_PATH As String = "C:\Users\Public\Documents"

Public Sub renameCsvFiles()
    Dim fso As New FileSystemObject
    
    If Not fso.FolderExists(C_PATH) Then
        MsgBox "Verzeichnis existiert nicht.", vbExclamation
        GoTo cleanUp
    End If
    
    Dim fold As Folder
    Dim f As File
    
    On Error GoTo cleanUp
    Set fold = fso.GetFolder(C_PATH)
    
    For Each f In fold.Files
        If InStr(1, f.Name, "NDGS", vbBinaryCompare) Then
            f.Copy f.ParentFolder.Path & "\NDGS.csv", False
            f.Delete False
        ElseIf InStr(1, f.Name, "DGS", vbBinaryCompare) Then
            f.Copy f.ParentFolder.Path & "\DGS.csv", False
            f.Delete False
        End If
    Next f
    On Error GoTo 0
    
cleanUp:
    If Err.Number > 0 Then
        MsgBox "Es ist leider ein Fehler aufgetreten." & vbCrLf & _
            "Fehlernummer: " & Err.Number & vbCrLf & _
            "Fehlerbeschreibung: " & Err.Description, vbExclamation
    End If
            
    If Not fold Is Nothing Then Set fold = Nothing
    If Not fso Is Nothing Then Set fso = Nothing
End Sub

Viele Grüße

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
05.12.2017 13:35:48 Michael Eisbach
NotSolved
05.12.2017 14:25:06 RPP63
NotSolved
05.12.2017 14:29:52 Gast46330
NotSolved
05.12.2017 14:40:43 Gast73981
NotSolved
Rot Umbenennen von CSV Dateien
05.12.2017 14:42:31 SJ
NotSolved
05.12.2017 14:58:36 Michael Eisbach
NotSolved
05.12.2017 15:07:19 SJ
NotSolved
05.12.2017 15:18:59 Michael Eisbach
NotSolved
05.12.2017 15:24:30 SJ
NotSolved
05.12.2017 15:39:10 Michael Eisbach
NotSolved
05.12.2017 15:41:45 SJ
NotSolved
05.12.2017 15:46:32 Michael Eisbach
NotSolved