MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 16.11.2010, 10:28   #1
Venom
MOF Profi
MOF Profi
Standard VBA - Datei löschen

Hallo zusammen,
ich lösche über VBA eine Datei auf der Festplatte mit
Code:

Kill und Dateinamen
Funktioniert soweit auch! Aber: Ich hätte gern das die Datei im Papierkob landet und nicht direkt gelöscht ist!?

geht das mit einem anderen Befehl vllt?!

Gruß
Venom

__________________

Danke das Ihr eure Zeit für mich opfert!
Venom ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.11.2010, 10:46   #2
jinx
MS-Office-Forum Team MS-Office-Forum Team
Standard

Moin, Venom,

AFAIK nicht direkt per VBA - vielleicht suchst Du nach entsprechenden Befehlen per API...

__________________

cu
jinx


per 31.12.2010 ausgeschiedener User und ehemaliger Excel-

Folgende Tools werden zur optischen Aufbereitung eingesetzt: Code Converter; Excel Jeanie Html
Für die allgemeinen Hinweise: Netiquette; Fragen und Antworten in Foren

eingesetzte Betriebssysteme: XP Home, XP Media Center Edition, XP Professional, Vista Ultimate, 7/Seven
verwendete Programme: Excel97 SR-2, Office 2000 SP-3, Office2002/XP SP-3, Office 2003 Professional SP-3, Office 2007 Home & Student SP-3, Office 2007 Professional SP-3
jinx ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.11.2010, 12:35   #3
Venom
Threadstarter Threadstarter
MOF Profi
MOF Profi
Standard

Hallo Jinx,
ich habe es mitr folgender versucht
Code:

Private Declare Function DeleteFile Lib "kernel32.dll" _
                Alias "DeleteFileA" ( _
                ByVal lpFileName As String) As Long
Funktioniert auch im Quellcode, nur auch diese schiebt es nicht in den Papierkorb sondern löscht es endgültig.

Hast du eine andere Api oder Ansatz für mich?!

gruß
Venom

__________________

Danke das Ihr eure Zeit für mich opfert!
Venom ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.11.2010, 14:46   #4
Venom
Threadstarter Threadstarter
MOF Profi
MOF Profi
Standard

Außer der Api und dem KillBefehl finde ich nichts.
Kann mir wer helfen?

__________________

Danke das Ihr eure Zeit für mich opfert!
Venom ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.11.2010, 15:12   #5
Scorefun
MOF Koryphäe
MOF Koryphäe
Standard

Google ist Dein Freund :

http://www.vb-fun.de/cgi-bin/loadfra.../tip0491.shtml

edit - sorry: läuft unter VBA nicht, es wird gelöscht - aber nicht in den Papierkorb...

__________________

Gruss Ralf
======================
Vorsicht Beim Ausprobieren...
Auch Chaotischer Code Entwickelt Sich Ständig
1) Intel I5-2500K, 4x3,3 Ghz, 8GB RAM, Asus P8P67, 120GB SSD OCZ-Vertex3, 1,5TB HD, MSI GTX550TI, Win7-Prof 64-bit SP1, Office 2010 Plus SP1
2) Intel Core Duo E6600, 2x2.4 Ghz, 3GB RAM, 500GB HD, GeForce 8800GTS, Linux Mint 16, Libre-Office
3) Samsung Tablet XE700T1C-G01DE, Win8.1 pro, i5-3317U, 1,7 Ghz, 4GB RAM, 128GB SSD, Office 2013

Geändert von Scorefun (16.11.2010 um 15:16 Uhr).
Scorefun ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.11.2010, 15:29   #6
Venom
Threadstarter Threadstarter
MOF Profi
MOF Profi
Standard

Schade...dank dir

__________________

Danke das Ihr eure Zeit für mich opfert!
Venom ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.11.2010, 16:31   #7
IngGi
MOF Guru
MOF Guru
Standard

Hallo Venom,

in www.office-loesung.de habe ich folgenden Beitrag hierzu von Nepumuk gefunden. Funktioniert bei mir tadellos:

Option Explicit

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" ( _
ByRef lpFileOp As SHFILEOPSTRUCT) As Long

Private Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String
End Type

Private Const FO_DELETE = &H3&
Private Const FOF_ALLOWUNDO = &H40&

Private Sub Move_to_Recycling_Bin(strFilename As String)
Dim udtFileStructure As SHFILEOPSTRUCT
With udtFileStructure
.wFunc = FO_DELETE
.pFrom = strFilename
.fFlags = FOF_ALLOWUNDO
End With
SHFileOperation udtFileStructure
End Sub

Public Sub Beispiel()
Call Move_to_Recycling_Bin("C:\test") 'Ordner (samt Inhalt) löschen
Call Move_to_Recycling_Bin("C:\MOF.xls") 'Datei löschen
End Sub

VBA/HTML - CodeConverter für Excelforen
AddIn für Excel XP+2003 - komplett in VBA geschrieben von IngGi
Anbindung an VBE-Kontextmenü geklaut ;-) bei: http://www.cpearson.com/excel/VbeMenus.aspx



Gruß Ingolf
IngGi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.11.2010, 07:24   #8
Venom
Threadstarter Threadstarter
MOF Profi
MOF Profi
Standard

Danke
Funktioniert!

__________________

Danke das Ihr eure Zeit für mich opfert!
Venom ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:23 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.