Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
05.12.2017 13:35:48 |
Michael Eisbach |
|
|
|
05.12.2017 14:25:06 |
RPP63 |
|
|
|
05.12.2017 14:29:52 |
Gast46330 |
|
|
|
05.12.2017 14:40:43 |
Gast73981 |
|
|
Umbenennen von CSV Dateien |
05.12.2017 14:42:31 |
SJ |
|
|
|
05.12.2017 14:58:36 |
Michael Eisbach |
|
|
|
05.12.2017 15:07:19 |
SJ |
|
|
|
05.12.2017 15:18:59 |
Michael Eisbach |
|
|
|
05.12.2017 15:24:30 |
SJ |
|
|
|
05.12.2017 15:39:10 |
Michael Eisbach |
|
|
|
05.12.2017 15:41:45 |
SJ |
|
|
|
05.12.2017 15:46:32 |
Michael Eisbach |
|
|
Von:
SJ |
Datum:
05.12.2017 14:42:31 |
Views:
681 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
05.12.2017 14:25:06 |
RPP63 |
|
|
|
05.12.2017 14:29:52 |
Gast46330 |
|
|
|
05.12.2017 14:40:43 |
Gast73981 |
|
|
Umbenennen von CSV Dateien |
05.12.2017 14:42:31 |
SJ |
|
|
|
05.12.2017 14:58:36 |
Michael Eisbach |
|
|
|
05.12.2017 15:07:19 |
SJ |
|
|
|
05.12.2017 15:18:59 |
Michael Eisbach |
|
|
|
05.12.2017 15:24:30 |
SJ |
|
|
|
05.12.2017 15:39:10 |
Michael Eisbach |
|
|
|
05.12.2017 15:41:45 |
SJ |
|
|
|
05.12.2017 15:46:32 |
Michael Eisbach |
|
|