Bestanden verwijderen

[Rhandel]

Hallo,

Ik ben bezig met een factuur programma. Het programma maakt zelf een unieke naam aan. Deze plaatst hij in een map 'tijdelijke facturen'. Als de persoon klaar is met de factuur plaatst hij hem in 'verzonden facturen'.

Nu wil ik graag dat vba het oude bestand verwijderd en dat lukt me maar niet.

Ik heb het geprobeerd met de regel:

Kill "E:\Documenten van Rene\facturen\Tijdelijke facturen\0301-FWP-2010-3"
Maar dan krijg ik de melding: Kan bestand niet vinden, terwijl hij er echt staat!

Wie kan mij helpen?

Alvast bedankt!
René

 

[OctaFish]

In je voorbeeld geef je geen extensie aan je bestandsnaam. Ik neem aan, dat je die wel hebt?

 

[Rhandel]

Nee ik heb geen extensie aangegeven. De extensie is xlsm. Heb wel een test gedaan waarbij ik de bestandsnaam gewoon noem, ook incl ext. maar dan doet ie 't ook niet...

 

[OctaFish]

Je moet sowieso altijd de volledige padnaam + bestandsnaam + extensie gebruiken, anders doet het commando uiteraard niks... Heb je het al met een ander bestand geprobeerd? Kan het misschien zijn dat het bestand nog geopend is?

 

[Mark xl]

René,

Probeer je probleem te onderzoeken m.b.v. onderstaande code

Overigens raad ik iedereen aan de walgelijke optie "Extensies voor bekende bestandstypen verbergen" onmiddellijk uit te zetten.
(verkenner > mapopties > weergave)

Sub Test()
    TestKill "E:\Documenten van Rene\facturen\Tijdelijke facturen\0301-FWP-2010-3"
End Sub
Private Sub TestKill(MyFile As String)
Const APP As String = "test kill"
Dim MyPath As String
On Error GoTo KillFailed
    Kill MyFile                 'Probeer Bestand te verwijderen
On Error GoTo 0
KillFailed:
Select Case Err.Number
    
    Case 0                      'Verwijderen succesvol
        MsgBox "Het bestand is gevonden en verwijderd!", _
                vbInformation, APP
    
    Case 53                     'Bestand niet gevonden
        On Error GoTo 0
        MsgBox "Het bestand is niet gevonden. Geef de locatie op", _
                vbInformation, APP
        MyPath = Application.GetOpenFilename("Alle Bestanden (*.*), *.*")
        MsgBox "De juiste locatie is" & vbCr & vbCr & MyPath, vbInformation, APP
        
        Debug.Print MyPath      'Kopieer het pad vanuit het venster "Direct" (Ctrl - G)
    
    Case 70                     'Het bestand is geopend
        MsgBox "Hetbestand is Geopend. sluit het bestand en probeer het opnieuw", vbInformation, APP

End Select
End Sub

 

[Ad4Jansen]

Wat bij mij werkt

Hoi wat bij mij goed werkt is

Kill pathname:=Sheets("voorblad").Range("i2").Value & ".xls"

Waarbij ("voorblad") bij mij toevallig zo heet :d
en de range ("i2") de totale locatie bevat. vb P:\werken\werk 30000 tm 31000\devries (dit wordt samengesteld door een aantal cellen bij elkaar te voegen)

en de .xls extentie. wat bij jou net zo goed .xlsm kan heten.

Het zal allemaal wat mooier kunnen maar bij mij werkt het en daar gaat het om.

Ik hoop dat dit je verder helpt

Ad

 

[Rhandel]

Hey mensen,

Bedankt voor jullie reacties. Nu nog ff aan het werk maar ga het vanavond gelijk proberen!
Thankx

Rene