Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
328to332
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
328to332
328to332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kopieren bzw. synchronisieren

kopieren bzw. synchronisieren
01.11.2003 07:50:11
Karl Heinz
ich möchte meine datei C:\info.txt in alle unterverzeichnisse von D:\Angebote\ kopieren. das verzeichnis Angebote hat ca. 10 unterverzeichnisse und man könnte das sicher leicht per hand machen, per macro wäre das natürlich eleganter.
würde mich freuen wenn es dazu hilfe gäbe, bedanke mich schonmal im voraus.

mit freundlichen grüßen
Karl Heinz

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: kopieren bzw. synchronisieren
03.11.2003 17:09:24
Reinhard
Hallo KarlHeinz,
nimm das folgende Makro, in der zweiten Zeile nur deinen Pfad anpassen.
Gruß
Reinhard


Sub t()
Pfad = "c:\temp\"
Set fs = CreateObject("Scripting.FileSystemObject")
DatVer = Dir(Pfad, vbDirectory)
While DatVer <> ""
If fs.folderExists(Pfad & DatVer) And DatVer <> "." And DatVer <> ".." Then
FileCopy "c:\info.txt", Pfad & DatVer & "\info.txt"
End If
DatVer = Dir()
Wend
End Sub

AW: kopieren bzw. synchronisieren
04.11.2003 21:16:04
Karl Heinz
Hallo Reinhard.
hatte schon nicht mehr mit einer antwort gerechnet und will auch niemanden nerven. deshalb freue ich mich besonders das es jetzt doch noch mit einer antwort geklappt hat und möchte auch sagen das dein makro 100 % tig funktioniert. - bedanke mich.

Gruß
Karl Heinz
Anzeige
Danke dir für die Rückmeldung o.w.T.
05.11.2003 21:13:51
Reinhard
.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige