Dateien mit vers. Endungen verschieben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

strDatei = [Dein Dateiname] arr = Split(strDatei, ".") strEndung = arr(UBound(arr, 1)) arr(UBound(arr, 1)) = [Dein Zusatz] 'z. B. "_" & Format(Date,"YYYYMMDD") strDatei = Join(arr, ".") & "." & strEndung

Private Sub CommandButton11_Click() Dim PfadScanOrdner As String, PfadEin As String, Datei As String Dim JaNein, Anz As Integer Dim counter As Long '***Vorgaben PfadScanOrdner = "X:\Scan\" Datei = Dir(PfadScanOrdner & ".") counter = 1 Do While Datei "" JaNein = MsgBox("In ihrem Scan-Ordner im Verzeichnis: " & PfadScanOrdner & " wurden Dateien erkannt. Möchten Sie diese in den Vorgang importieren ?", vbYesNo + vbQuestion, "Import") If JaNein = vbYes Then FileCopy PfadScanOrdner & Datei, sPfadAktenscan & Datei Kill PfadScanOrdner & Datei 'löschen Anz = Anz + 1 End If Datei = Dir() ' nächste Datei counter = counter + 1 Loop End Sub

Hi,
das müsste ungefähr so funktionieren:
Private Sub CommandButton11_Click()


Private Sub CommandButton11_Click()
Dim PfadScanOrdner As String, PfadEin As String, Datei As String, DateiNeu As String, strEndung As String
Dim JaNein, Anz As Integer
Dim counter As Long
Dim arr As Variant
'***Vorgaben
PfadScanOrdner = "X:\Scan\"
Datei = Dir(PfadScanOrdner & ".")
counter = 1
Do While Datei  ""
JaNein = MsgBox("In ihrem Scan-Ordner im Verzeichnis: " & PfadScanOrdner & " wurden Dateien erkannt. Möchten Sie diese in den Vorgang importieren ?", vbYesNo + vbQuestion, "Import")
If JaNein = vbYes Then
arr = Split(Datei, ".")
strEndung = arr(UBound(arr, 1))
arr(UBound(arr, 1)) = "_" & Format(Date, "YYYYMMDD")
DateiNeu = Join(arr, ".") & "." & strEndung
MoveFile PfadScanOrdner & Datei, sPfadAktenscan & DateiNeu
'Kill PfadScanOrdner & Datei 'löschen
Anz = Anz + 1
End If
Datei = Dir() ' nächste Datei
counter = counter + 1
Loop
End Sub

VG, Heli

Private Sub CommandButton11_Click() Dim PfadScanOrdner As String, PfadEin As String, Datei As String, DateiNeu As String Dim JaNein, Anz As Integer Dim counter As Long '***Vorgaben PfadScanOrdner = "X:\Scan\" Datei = Dir(PfadScanOrdner & ".") counter = 1 Do While Datei "" JaNein = MsgBox("In ihrem Scan-Ordner im Verzeichnis: " & PfadScanOrdner & " wurden Dateien erkannt. Möchten Sie diese in den Vorgang importieren ?", vbYesNo + vbQuestion, "Import") If JaNein = vbYes Then Anz = Anz + 1 DateiNeu = Format(Date, "YYMMDD") & "(" & Anz & ")" & Mid(Datei, InStrRev(AlterDateiname, ".")) MoveFile PfadScanOrdner & Datei, sPfadAktenscan & DateiNeu End If Datei = Dir() ' nächste Datei counter = counter + 1 Loop End Sub

HI
um eine Datei umzubennen gibt es den Befehl Name alter_dateiname as neuer_dateiname
dabei musst du natürlich die Dateiendung beibehalten, sonst wird die Datein unbrauchbar.
dh das ist dann eine Frage, wie du den neuen Dateinamen ermittelst.
das könnte hier dann so sein, für eine Umbenennung im selben Ordner


NeuerDateiname = Left(AlterDateiname, InstrRev(AlterDateiname, "\")) & Format(Date, "YYYY_MM_DD") & Mid(AlterDateiname, InstrRev(AlterDateiname, "."))

InstrRef ermittelt die Postion eines Zeichens in einer Zeichenfolge, sucht dabei aber das erste Zeichen von rechts, während das normale Instr das erste Zeichen von links ermittelt. Die Postionsnummer ist dabei immer von links gezählt.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Dateien mit vers. Endungen verschieben

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dateien mit vers. Endungen verschieben

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread