actionbrowser.com
Frage Hallo, zuerst einmal möchte ich mich für die bisherigen Ratschläge hier bedanken, bevor ich mich nun mit einem neuen Problem an euch wende: Ich habe in meiner DB ein Feld, in dem bei jedem Datensatz ein Pfad zu einem Projektverzeichnis hinterlegt ist, in welches beim Anlegen eine leere Struktur hineinkopiert wird. Nun möchte ich mittels einer Schaltfläche (nach Projektabschluss) alle Dateien des Typs * löschen sowie im Anschluss daran alle leeren Unterordner löschen. Vba datei löschen download. Was ich bisher fand, war eine Lösung als Batch-Datei: for /f "delims="%%a IN ('dir /b /s *') do call del "%%a" for /f "delims=? "%%i in ('dir /AD /b /s "d:\Eigene Dateien\ordner 1\unterordner"') do rd "%%i" Ich möchte nur ungern eine derartige Datei in der Vorlage hinterlegen, um versehentliches Ausführen ausschließen zu können. Auch ist mir nicht klar, wie ich den Wert des "Projektverzeichnis" in die Zeile übernehmen sollte. Danke im Voraus, Andreas Antworten Hi Andreas, versuche es mal so: Sub loe() loeschen "c:\temp\x" End Sub Sub loeschen(ByVal pfad As String) 'Create object to FileSystemObject Set oFSO = CreateObject("leSystemObject") Set oSourceFolder = tFolder(pfad) For Each subpfad In bfolders subpfad loeschen subpfad Next strFile = "\*" strFound = Dir(pfad & strFile) Do While strFound <> "" Kill pfad & "\" & strFound strFound = Dir Loop If = 0 And = 0 Then RmDir pfad -- Viele Grüsse Peter Fleischer (ehem.
MFG Tim Hallo Tim, die beiden Pfade dürften zwar gleich sein, sofern man von den unterschiedlich vielen "x" vor "/Ordner/" absieht. Aber die beiden Dateinamen sind keinesfalls gleich: Dateiname im Kill-Befehl: " " Dateiname in der SaveAs-Methode: Range("A2") & " " & "V1 " & " " & Date & "" Danke für die Antwort. Ich habe ganz vergessen zu erwähnen, dass die Datei Veranstaltung1 schon vorhanden ist. Sie wird halt mit den neuen Parametern in einen anderen Ordner abgespeichert. Wie Sie eine Datei ganz einfach per Excel-Makro löschen - computerwissen.de. Es soll nur die vorhandene Datei (Veranstaltung1) gelöscht werden. (ich habe die x durch meine ondrive Adresse ersetzt. Dabei habe ich jetzt nicht so genau darauf geachtet ob die Anzahl gleich ist [emoji28]) Gesendet von meinem BLA-L29 mit Tapatalk Moin! Dies dürfte auf diesem Weg nicht funktionieren! Auf meinem Windows-Rechner werden alle On e drive-Dateien im Verzeichnis &UserProfile& gespiegelt. (also C:\Users\meinName\On e Drive\) Ein physisches Löschen auf der Festplatte bewirkt ein Löschen der Datei auf On e Drive!
28. 2006, 20:37 # 8 dann solltest Du Dir die Open-Befehle in der VBA-Hilfe einmal ansehen, oder möglicherweise auch Textdatei auslesen und in MsgBox anzeigen, wobei von dort nur der Ansatz zu übernehmen ist: mit einer Mitteilungsbox werden in den seltensten Fällen Dateien gelöscht. Leere (Unter-) Ordner löschen mittels VBA. 29. 2006, 18:58 # 9 sorry, dass ich mich jetzt erst melde, hab' einen Tag in der Sonne verbracht... Der Ansatz aus dem Link sieht sehr gut aus, werde ich morgen "inne 4ma" testen. Schon mal danke; wenn ich (wieder mal) zu blöd bin, melde ich mich noch mal! Der Mensch wächst an seinen Aufgaben Dieter
Probier mal: Dim DeinPfad = "D:\" '<-- hier Deinen Pfad eintragen Dim LastWriteTimeVorRefresh1 = tLastWriteTime(DeinPfad) Dim DeinVerzeichnis As New oryInfo(DeinPfad) Dim LastWriteTimeVorRefresh2 = stWriteTime fresh() Dim LastWriteTimeNachRefresh1 = tLastWriteTime(DeinPfad) Dim LastWriteTimeNachRefresh2 = stWriteTime ( String. Join (wLine, $ "vor Refresh, Shared Method Time: {LongTimeString}", $ "vor Refresh, Instance Method Time: {LongTimeString}", $ "nach Refresh, Shared Method Time: {LongTimeString}", $ "nach Refresh, Instance Method Time: {LongTimeString}")) Es gibt die beiden Varianten GetLastWriteTime und GetCreationTime. Vba datei löschen 1. Wenn eine Datei kopiert oder verschoben (und damit neu angelegt) wird, ändert sich die LastWriteTime nicht zwingend, aber die CreationTime ist neu, Deshalb im Zweifel immer beide Werte testen. -- If Not Working Then Else NotTouch Benutzer online 3 3 Besucher Sonstige Problemstellungen »
Hi Jens, da ich Funktionen mag, hier meine Variante: Code: Sub ClearTxt() ' Aufruf mit Pfad fkt_ClearTXT ("C:\NGTest\") End Sub ' Function fkt_ClearTXT(sFile As String) As Boolean Dim i As Integer, sTXT As String fkt_ClearTXT = True 'Default: kein Fehler i = FreeFile On Error GoTo Fehler Open sFile For Output As #i 'Öffnen zur Ausgabe GoTo Weiter Fehler: fkt_ClearTXT = False 'Fehler! Weiter: Close #i 'Direkt wieder schließen End Function HTH Christian __________________
2006, 12:11 # 3 Hallo LS, danke für die schnelle Antwort. Leider - wie gesagt (VBA-Neuling) - komme ich damit nicht zurecht. Die von Dir erwähnte Methode ist bei mir nicht in der Vorschlagsliste enthalten. (Also... ich hab zunächst ein FileSystemobject deklariert, dann müsste, wenn ich dieses eintippe, die Methode doch auch vorgeschlagen werden!?!? ) Oder muss ich noch eine Bibliothek aktivieren? Aktiv ist (zu den 4 Standards) noch "Microsoft Scripting Runtime" Und wenn Du mir vielleicht ein kleines Codebeispiel schicken könntest...? Danke! 27. 2006, 12:47 # 4 die von mir erwähnte Methode ist Teil der Excel-Anwendung, es braucht kein weiterer Verweis gesetzt zu werden. Es ist mir zur Zeit nicht möglich, ein Beispiel zu erstellen (mein Chef hört es nicht so gerne, wenn ich als Begründung für die Verspätung zu einer Sitzung Forenarbeit anführe). Wenn Du Zeit bis heute Abend hast und das Problem noch offen ist, werde ich Dir zumindest ein Beispiel zu meinem Vorgehen präsentieren können. Auf zur Lügenstunde 27.
08. 05. 2017, 18:09 | Lesedauer: 3 Minuten Foto: Hannes Hubach / ZDF und Hannes Hubach Essen In "Der Gutachter – Ein Mord zu viel" wird ein entlassener Straftäter verdächtigt. Der Film sticht positiv aus der Krimi-Flut heraus.
Siedler bescheinigt ihm eine erfolgreiche Therapie, Knecht wird entlassen. Foto: ZDF / Hannes Hubach Erfolgreich austherapiert? Was ist dieser Friedhelm Knecht (Michael A. Grimm) für einer? Nur jähzornig oder ein Doppelmörder? Franziska Wulf und Martin Baden. Dieser Teil der Geschichte steht im Vordergrund, denn mit Knecht verknüpft Bitzer auch das Thema des Films: Wie geht die Gesellschaft mit solchen Menschen um? Der Gutachten-Krimi – Die Neue Südtiroler Tageszeitung. Resozialisieren oder Wegsperren für immer? Wie seine TV-Kollegen ist auch Siedler Hochschuldozent und erörtert diese Fragen zu Beginn mit seinen Studenten, ein erzählerisches Mittel, dass die Autoren der beiden anderen Psycho-Reihen ebenfalls gern verwenden. Anhand des Falls Knecht illustriert Bitzer das Restrisiko, das nur dann ausgeschlossen werden kann, wie es im Epilog heißt, wenn man dafür die Freiheit opfert: Kaum auf freiem Fuß, kauft Knecht erst mal eine Flasche Wodka, aber das ist bloß eine Drehbuchfinte; die Flasche ist für Siedler. Dass er sie mitsamt einem Strauß Blumen Siedlers hochschwangeren Frau Kathrin (Jasmin Gerat) überreicht, ist ein erster Hinweis auf das Ungemach, das Kathrin später noch erleiden wird.
Das könnte dich auch interessieren Schauspielerinnen und Schauspieler Komplette Besetzung und vollständiger Stab Bild Weitere Details Produktionsland Germany Verleiher ZDF Produktionsjahr 2017 Filmtyp Spielfilm Wissenswertes - Budget Sprachen Deutsch Produktions-Format Farb-Format Farbe Tonformat Seitenverhältnis Visa-Nummer Ähnliche Filme