Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1312to1316
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
Inhaltsverzeichnis

Makro zum Datei austauschen

Makro zum Datei austauschen
31.05.2013 07:41:04
Wanek
Hallo,
brauch wiedermal eure Hilfe.
Ich bräuchte ein Makro,das eine Datei im Ordner einsetzt oder löscht.
Es soll wie folgt funktionieren:
Klick auf einen Button, Makro soll nachsehen, ob im Ordner C:\Heizung die Datei schalter.txt gibt,wenn nicht soll er die Datei schalter.txt einfügen, wenn sie schon da ist, dann soll er sie löschen.
Die Datei schalter.txt ist zu finden(kopieren) unter C:\Heizung\Schalter\schalter.txt
Ich brauche eine Ordnerstuktur Veränderung, damit ich einen Schalter bedienen kann.
....schalter.txt...ist da...Heizung schaltet ein.....nicht da...Heizung schaltet aus..
Für eure Hilfe wäre ich sehr dankbar!!!
Gruß
Andreas

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zum Datei austauschen
31.05.2013 08:43:41
JoWE
Hallo Andreas,
so vllt.?
Sub helper()
Dim f As String, p As String, oFile As String
p1 = "C:\Heizung\"
p2 = "C:\Heizung\Schalter\"
oFile = "Schalter.txt"
If Dir(p1 & oFile)  "" Then
'Schalter.txt existiert: Löschen
Kill (p1 & oFile)
Else
'Schalter.txt existiert nicht: Aus p2 nach p1 kopieren
FileCopy p2 & oFile, p1 & oFile
End If
End Sub
Gruß
Jochen

AW: Makro zum Datei austauschen
31.05.2013 08:50:16
Wanek
Hallo Jochen,
genau so wollte ich es haben!!!
Vielen lieben Dank dafür!!!
Gruß
Andreas
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige