Thema Datum  Von Nutzer Rating
Antwort
10.01.2017 08:20:59 Officer_Bierschnitt
NotSolved
Blau Dateien kopieren
 10.01.2017 08:39:49 SJ
NotSolved
10.01.2017 08:43:30 Officer_Bierschnitt
NotSolved
10.01.2017 14:22:37 Officer_Bierschnitt
NotSolved
10.01.2017 14:55:39 Officer_Bierschnitt
NotSolved
10.01.2017 15:05:50 Officer_Bierschnitt
NotSolved
10.01.2017 15:43:47 SJ
Solved
10.01.2017 15:48:08 Officer_Bierschnitt
NotSolved

Ansicht des Beitrags:
Von:
SJ		 Datum:
10.01.2017 08:39:49		 Views:
682		 Rating:
     
Antwort:
  Ja
Thema:
Dateien kopieren

Guten Morgen,

ja, du kannst die Dateien mit der FileCopy Methode auch umbenennen.

Hier ein simples Beispiel:

Option Explicit

Private Const SOURCE_FILE As String = "C:\Users\User1\Desktop\tmp\test.txt"
Private Const DESTINATION_FILE As String = "C:\Users\User1\Desktop\tmp\Neuer Ordner\test_neu.txt"

Public Sub copy_file()
    Dim fso As New FileSystemObject
    
    If fso.FileExists(SOURCE_FILE) Then
        If fso.FolderExists(fso.GetParentFolderName(DESTINATION_FILE)) Then
            Call fso.CopyFile(SOURCE_FILE, DESTINATION_FILE, True)
        Else
            MsgBox "Zielordner existiert nicht.", vbCritical
        End If
    Else
        MsgBox "Quelldatei existiert nicht.", vbCritical
    End If
    
    Set fso = Nothing
End Sub

Gruß

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
10.01.2017 08:20:59 Officer_Bierschnitt
NotSolved
Blau Dateien kopieren
 10.01.2017 08:39:49 SJ
NotSolved
10.01.2017 08:43:30 Officer_Bierschnitt
NotSolved
10.01.2017 14:22:37 Officer_Bierschnitt
NotSolved
10.01.2017 14:55:39 Officer_Bierschnitt
NotSolved
10.01.2017 15:05:50 Officer_Bierschnitt
NotSolved
10.01.2017 15:43:47 SJ
Solved
10.01.2017 15:48:08 Officer_Bierschnitt
NotSolved