Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Dateien kopieren |
10.01.2017 08:20:59 |
Officer_Bierschnitt |
|
|
|
10.01.2017 08:39:49 |
SJ |
|
|
|
10.01.2017 08:43:30 |
Officer_Bierschnitt |
|
|
|
10.01.2017 14:22:37 |
Officer_Bierschnitt |
|
|
|
10.01.2017 14:55:39 |
Officer_Bierschnitt |
|
|
|
10.01.2017 15:05:50 |
Officer_Bierschnitt |
|
|
|
10.01.2017 15:43:47 |
SJ |
|
|
|
10.01.2017 15:48:08 |
Officer_Bierschnitt |
|
|
Von:
Officer_Bierschnitt |
Datum:
10.01.2017 08:20:59 |
Views:
1198 |
Rating:
|
Antwort:
|
Thema:
Dateien kopieren |
Hallo,
ich habe ein Verzeichnis mit Dateien (letztendlich drei, aber das ist ja egal), da hab ich schon eine Kurz-Liste erstellt mit all den Dateien, die ich brauche. Diese sollen jetzt umkopiert werden: Ich habe dazu schon an entspr. Stelle eine Ordnerstruktur erstellt mit Jahres-Ordner, Monats-Ordner unt Tages-Ordner.
Da rein sollen diese Dateien jetzt gespeichert werden.
Allerdings sind das keine Excel-Dateien, ich kann sie also nicht aufmachen - will ich ja eigentlich auch gar nicht, das dauert zu lang und ich kenne den Inhalt ohnehin schon. Ich will sie ja nur in die andere Ordnerstruktur umlegen.
Da hab ich jetzt im Netz einen Code gefunden, der gefällt mir ganz gut:
>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Sub Move_File()
Dim myFSO As Object
Dim qFolder As String, tFolder As String
Dim qFile As String
qFile = "test.xls"
qFolder = "C:\Test\"
tFolder = "D:\Test\"
'Kill tFolder & qFile
Set myFSO = CreateObject("Scripting.FileSystemObject")
myFSO.movefile qFolder & qFile, tFolder & qFile
'Alternativ kopieren
'myFSO.copyfile qFolder & qFile, tFolder & qFile, True
End Sub
In der Zeile mit >>qFile = "test.xls" könnte ich dann einen der Dateinamen aus der Liste eintragen, oder?
Dazu kommt, dass die Dateien auch umbenannt werden sollen. Aber da der >>copyfile<<-Befehl ja zweimal qFile beinhaltet, könnte ich das ja durch einen beliebigen anderen Namen ersetzen, oder?
(in meinem Fall steht einfach hinten am Dateinamen ein Datums-Zeit-Stempel, ich brauch das Datum aber vorn und die Zeit gar nicht).
Danke vielmals!
Gruß,
Officer_Bierschnitt |
- 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
|
Dateien kopieren |
10.01.2017 08:20:59 |
Officer_Bierschnitt |
|
|
|
10.01.2017 08:39:49 |
SJ |
|
|
|
10.01.2017 08:43:30 |
Officer_Bierschnitt |
|
|
|
10.01.2017 14:22:37 |
Officer_Bierschnitt |
|
|
|
10.01.2017 14:55:39 |
Officer_Bierschnitt |
|
|
|
10.01.2017 15:05:50 |
Officer_Bierschnitt |
|
|
|
10.01.2017 15:43:47 |
SJ |
|
|
|
10.01.2017 15:48:08 |
Officer_Bierschnitt |
|
|