Office: Daten löschen wenn sie in einen Ordner verschoben wurden

Hallo zusammen,

ich habe da ein Problem mit einer Excel Datei. Wir wandeln hier eine Textdatei um, sortieren sie und legen sie dann in einen anderen Ordner ab. Nun würde ich gerne nachdem die Datei in den anderen Ordner abgelegt ist, die Ursprüngliche Datei löschen.

Kann mir da jemand helfen?

Der Code denn wir bis jetzt benutzen sieht im Moment so aus:

Sub einlesen_ScopeCheck()

Range("A1").Select
ChDir "I:\ScopeCheck"
Workbooks.OpenText FileName:="I:\ScopeCheck\output.txt", Origin:=xlWindows, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 3), Array(4, _
2), Array(18, 2), Array(30, 2), Array(40, 2), Array(50, 2), Array(60, 2), Array(70, 2), _
Array(80, 2))
Columns("A:I").Select
Selection.Sort Key1:=Range("I1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
Windows("Messmaschinen_SPR2.xls").Activate
Sheets("Tabelle2").Select
Range("A1").Select
Selection.Copy
Windows("output.txt").Activate
ActiveSheet.Paste
Range("B1").Select
Application.CutCopyMode = False
ChDir "S:\Transfer"
ActiveWorkbook.SaveAs FileName:="S:\Transfer\qws2.txt" _
, FileFormat:=xlText, CreateBackup:=False
ActiveWindow.Close
Range("G16").Select
Sheets("Messmaschinen_SPR2").Select
End Sub

 

Das ist eigentlich ganz simpel: Die Routine "Objekt.DeleteFile Dateispez[, erzwingen]" hilft Dir da weiter. Diese mußt du nur mit dem Dateinamen füttern und *schwupps* wech isse.

Code:

    deletefile "I:\ScopeCheck\output.txt"

Die Zeile wäre wohl nach dem "ActiveWindow.Close" (viertletzte Zeile in Deinem Code) am besten aufgehoben.

Ich würde aber dringendst empfehlen, in Deiner Routine dann noch mit "ON ERROR GOTO ..." ein Konstrukt einzubauen, das Fehler beim Verarbeiten / Speichern abfängt. Ansonsten geht die Verarbeitung vielleicht schief oder das Ergebnis kann nicht gespeichert werden, die Datei wird aber trotzdem gelöscht. Das könnte fatal sein...

Gruß, Michael

 

Hallo,

danke für die schnelle Hilfe, ich habe das mit dem Code mal ausprobieren und bekomme jetzt einen Fehlermeldung :Sub oder Function nicht definiert. Kannst Du mir da noch mal helfen, da ich doch noch nicht so viel Ahnung habe.

Gruß Ingo

 

Sorry, ich war da wohl etwas zu knapp. Außerdem hatte ich noch einen "." vergessen, wodurch es noch etwas problematischer wurde.

Um das "deletefile" nutzen zu können, mußt Du es als Methode eines Objekts aufrufen. Das Objekt ist ein "FileSystemObject". In der OH findet man dazu als Beispiel:

Code:

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("c:\testfile.txt", True)
    a.WriteLine("Dies ist ein Test.")
    a.Close

Dementsprechend geht:

Code:

    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.deletefile "I:\ScopeCheck\output.txt"

Gruß, Michael

 

Danke !!!

Funktioniert super.

Gruß Ingo