Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
708to712
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
708to712
708to712
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateien per Klick auf Button löschen

Dateien per Klick auf Button löschen
16.12.2005 11:01:22
Helmut
Hallo liebe Forenmitglieder,
ich habe leider immer noch ein Problem mit dem Löschen von Dateien in einem vordefinierten Verzeichnis.
Ich habe im Verzeichnis E:\ einige Dateien, die ich per Mausklick auf einen Button (in einem Arbeitsblatt erzeugt) löschen will.
Dazu kann man die "kill-Anweisung" benutzen. Ich will aber vorher abfragen, ob die Datei überhaupt vorhanden ist; dann erst soll sie gelöscht werden.
Da ich kaum Kenntnisse habe und von der "kill"-Anweisung auch nur über dieses Forum erfahren habe, wäre ich euch über eine genaue Script-Beschreibung zu der Aufgabe sehr dankbar.
Liebe Grüße,
Helmut

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien per Klick auf Button löschen
16.12.2005 11:04:53
Hajo_Zi
Hallo Helmut,
zum Prüfen Ordner

Option Explicit
Sub Vorhanden_Datei()
'   Fehler falls LW nicht vorhanden
If Dir("D:\Eigene Dateien\Hajo\Adresse1.xls") <> "" Then
MsgBox "vorhanden"
Else
MsgBox "nicht vorhanden"
End If
End Sub
Sub Vorhanden_Phad()
'   Fehler falls LW nicht vorhanden
If Dir("C:\Eigene Dateien\") <> "" Then
MsgBox "vorhanden"
Else
MkDir "C:\Eigene Dateien\\"
MsgBox "nicht vorhanden"
End If
End Sub
Sub Ordner_vorhanden()
'   von Berti Koern
Dim Fso, Ordnername
Set Fso = CreateObject("Scripting.FileSystemObject")
Ordnername = "C:\Eigene Dateien\"
'    MsgBox Fso.FolderExists(Ordnername)
If Fso.FolderExists(Ordnername) = False Then MkDir "C:\Eigene Dateien\"
End Sub
Sub Datei_vorhanden()
'   von Berti Koern
Dim Fso, Dateiname
Set Fso = CreateObject("Scripting.FileSystemObject")
Dateiname = "D:\Eigene Dateien\Hajo\Adresse.xls"
'   Egänzung öffnung Hajo
If Fso.FileExists(Dateiname) Then
Workbooks.Open Dateiname
End If
End Sub



Anzeige
AW: Dateien per Klick auf Button löschen
16.12.2005 11:09:24
MichaV
Hallo,
warum willst Du vorher fragen? Um Fehler zu vermeiden oder um eine Benutzerbestätigung einzuholen?
Würde es so schon reichen: ?

Sub test()
Kill "d:\Micha\Excel\tmp\*.*"
End Sub

Gruß- Micha
PS: Rückmeldung wäre nett.
AW: Dateien per Klick auf Button löschen
16.12.2005 11:40:36
Helmut
Hallo Micha,
ich muss leider abfragen, weil sich in diesem Ordner auch xml-Files von anderen Personen befinden, die ich keinesfalls löschen darf.
Liebe Grüße,
Helmut
AW: Dateien per Klick auf Button löschen
16.12.2005 13:45:49
MichaV
Hallo Helmut,
also das kann man auf vielen Wegen lösen, Du musst mal genau sagen, wie Du Dir das vorstellst:
a) alle Dateien außer xml- Dateien löschen
b) bei jeder Datei eine Meldung "Wollen sie die Datei bla.bla löschen?" - Ja - Nein -
c) nur bestimmte Dateien löschen, deren Namen Dir bekannt ist
d) eine Kombination aus a,b, und c
Gruß- Micha
PS: Rückmeldung wäre nett.
Anzeige
AW: Dateien per Klick auf Button löschen
16.12.2005 14:15:52
Helmut
Hallo Micha,
also es ist in deiner Aufstellung der Punkt c) !!
Mir sind die Namen bekannt, bzw. alle möglichen Endungen vor der Dateiendung xml.
Sind die Dateien nicht vorhanden, was sein kann, dann sollte kein Laufzeitfehler kommen.
Die Dateien sind exakt:
Material_DU_BG_exp.xml
Material_DU_BG_imp.xml
Material_DU_ET_exp.xml
Material_DU_ET_imp.xml
Material_DO_ET_exp.xml
Material_DO_ET_imp.xml
Klass_DU_BG_exp.xml
Klass_DU_BG_imp.xml
Klass_DU_ET_exp.xml
Klass_DU_ET_imp.xml
Klass_DO_ET_exp.xml
Klass_DO_ET_imp.xml
Stueckliste_DU_ET_exp.xml
Stueckliste_DU_ET_imp.xml
Stueckliste_DU_BG_exp.xml
Stueckliste_DU_BG_imp.xml
Stueckliste_DO_ET_exp.xml
Stueckliste_DO_ET_imp.xml
Masse_DU_exp.xml
Masse_DU_imp.xml
Masse_DO_exp.xml
Masse_DO_imp.xml
Masse_DU_BG_exp.xml
Masse_DU_BG_imp.xml
Arbplan_DU_exp.xml
Arbplan_DU_imp.xml
Das heißt, ein gewisser Teil der Dateiendungen inklusive ".xml" ist gleich.
Wie gesagt, es kann aber sein, dass ein paar dieser Dateien gar nicht im Verzeichnis sind, aber in jedem Fall sind es maximal die oben stehenden Dateien.
Liebe Grüße,
Helmut
Anzeige
AW: Dateien per Klick auf Button löschen
16.12.2005 14:49:48
MichaV
Hallo,
das sind max. 10 Zeilen Code. Aber nun geh ich zur Weihnachtsfeier meiner Tochter(2), das geht vor ;o)
Ich stell mal auf "offen" und wenn bis 20:00 Uhr keine Lösung da ist, geb ich sie Dir.
Gruß- Micha
AW: Dateien per Klick auf Button löschen
16.12.2005 20:01:30
MichaV
Hallo,
das hier ist eine mögliche Lösung:


      
Option Explicit
Sub Löschen()
Dim strVorlage As String
Dim strLöschen As String
Dim strDatei As String
'Dein Pfad, in dem die Dateien liegen
Const strPfad = "E:\"
'Deine Dateien ohne "_exp.xml" und "_imp.xml", mit "#" am Ende!
strVorlage = "Material_DU_BG#" & _
             "Material_DU_ET#" & _
             "Material_DO_ET#" & _
             "Klass_DU_BG#" & _
             "Klass_DU_ET#" & _
             "Klass_DO_ET#" & _
             "Stueckliste_DU_ET#" & _
             "Stueckliste_DU_BG#" & _
             "Stueckliste_DO_ET#" & _
             "Masse_DU#" & _
             "Masse_DO#" & _
             "Masse_DU_BG#" & _
             "Arbplan_DU#"
'Einen String zusammenbauen, der alle Dateinamen enthält nach dem Muster
'"#Material_DU_BG_exp.xml#Material_DU_ET_exp.xml# .... #Material_DU_BG_imp.xml#....#
strLöschen = "#" & Replace(strVorlage, "#", "_exp.xml#") & Replace(strVorlage, "#", "_imp.xml#")
'Debug.Print strLöschen 'zum gucken, wie der String aussieht

'erste Datei aus Verzeichnis ermitteln
strDatei = Dir(strPfad)
'und so lange, bis alle Dateien ermittelt wurden
Do Until strDatei = ""
  'Wenn "#Dateiname#" im Dateinamen- String vorhanden, dann Datei löschen
  If InStr(strLöschen, "#" & strDatei & "#") > 1 Then Kill strPfad & strDatei
  'nächste Datei ermitteln
  strDatei = Dir
Loop
End Sub 


Gruß- Micha
PS: Rückmeldung wäre nett.
Anzeige
AW: Dateien per Klick auf Button löschen
17.12.2005 09:17:27
Helmut
Hallo Micha,
ich danke dir recht herzlich!! Es klappt! Du hast mir sehr viel weitergeholfen damit. Finde ich echt toll von dir! Nochmals herzlichen Dank!
(Ich hoffe die Kinderfeier war recht schön!)
Schönes Wochenende und liebe Grüße,
Helmut
Danke für die Rückmeldung! mT
17.12.2005 23:31:23
MichaV
Hallo Helmut,
bitte, das hab ich gern gemacht. Leuten wie Dir, die nett fragen und die vor dem Fragen auch nachdenken wird gerne geholfen.
Gruß- Micha

43 Forumthreads zu ähnlichen Themen

Abfrage ob Klick auf Button erfolgt ist
Frank

Hallo Zusammen!!!
Wieder einmal eine Frage: Mittels einer UF werden Daten in ein Tabellenblatt geschrieben. Auf der UF befinden sich 4 CommandButton, welche Daten in das Tabellenblatt eintragen. Der 5. Button schließt dann die UF. Nun möchte ich, dass wenn der User auf den 5. Button klickt...
13.07.2010 15:24:22
Thread-ID: 1166887
4 Beiträge
Anzeige
Beim Klick auf Abbrechen Makro beenden
chandler

Hallo,
wenn im nachfolgenden Makro auf die Schaltfläche Abbrechen geklickt wird bleibt das Makro stehen und wird nicht beendet. On Error Resume Next hilft nicht. Sub Test() 'Test ChDrive Left(CurDir, 1) ChDir CurDir Dim z As Range Dim search As String Set wbtarget = ThisWorkbook.Worksheets...
05.11.2012 14:39:02
Thread-ID: 1285354
5 Beiträge
Optionsbutton ausblenden funzt nur bei klick
EarnyToLearny

Liebe Excel-Profis,
es sollen 2 Optionsbuttons (nicht aus Formular erstellt) ausgeblendet werden, wenn ein Wert 1 in Zelle R25 steht. Funktioniert mit folgenden Code: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False If Sheets("Tabelle1").Range(...
26.01.2013 17:07:38
Thread-ID: 1296107
5 Beiträge
Anzeige
Bei Klick auf Checkbutton soll Gedruckt werden
Langmantl

Hallo,
bei Klick auf Checkbutton soll selektiert werden, ob die Datei in Farbe oder in Schwarzweiß gedruckt wird und es soll mittels inputbox die Anzahl der kopien definierbar sein, danach drucken.
Wie lautet hierzu der Code?
05.11.2014 14:49:50
Thread-ID: 1390643
3 Beiträge
Klick auf CommandButton, Link nicht öffnen
Propman

Hallo,
ich habe eine kleine Testdatei hier aufgebaut:
https://dl.taikocloud.com/download.php?id=115&token=EkfT3Bffiltj4gpJfsfDbzEfW6dkU4Jp
(Wie schon mehrfach geschrieben ist es mir leider nicht möglich vom Mac aus irgendwelche Dateien bei Herber hochzuladen, weder mit Safari no...
01.03.2015 12:15:54
Thread-ID: 1412078
3 Beiträge
Aufrufenden cmdButton eines UF bestimmen
Wusel

Hallo zusammen,
ich habe mal wieder ein kleines Problem und hoffe man kann mir hier weiterhelfen :)
Ich habe ein Userform(UF1) gebaut und möchte dies nun von 2 verschiedenen anderen Userforms(UF2/UF3) aufrufen. Je nachdem ob UF2 oder UF3 aufruft soll UF1 aber anders befüllt werden. Jetz...
03.06.2015 22:27:42
Thread-ID: 1429182
5 Beiträge
Button auf Homepage klicken
Hermann

Hallo zusammen,
nach erfolgloser Suche & Testen habe ich es nun aufgegeben und benötige Hilfe von einem Experten.
Ich möchte mittels eines VBA einen bestimmten Button auf dieser Homepage klicken: "http://www.unternehmen24.info/Firmeninformationen/DE/4232667"
Freue mich um Suppor...
30.06.2016 18:28:50
Thread-ID: 1501912
4 Beiträge
Datum perKlick auf Button einfügen
Frank

Hallo,
ich habe eine Textbox, diese soll sich nach drücken eines Buttons mit dem aktuellen Datum füllen.
Wie kann ich dies lösen?
Vielen Dank
22.11.2016 13:05:55
Thread-ID: 1526318
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
9
4
4
32
2
2
4
3
2
5
4
2
2
8
1
6
2
22
7
1
1
1
3
1