Bestand verwijderen

[jverstraten]

Ik wil een pdf bestand van de C schijf verwijderen als het verwerkt is.

Ik gebruik deze code, waarmee alles perfect werk, behalve de laatste regel.
Wat heb ik verkeerd gedaan ???

Ik krijg geen foutmelding maar een gele streep door de regel

Het bestand krijgt telkens een andere naam en nummer die gehaald worden uit Cel 4,5 en cel 8,3 van sheet werkbon,
wordt vervolgens opgeslagen op de C schijf en automatisch per email verstuurd, werkt allemaal perfect. En dan wil ik hem van de C schijf verwijderen.
Met de code kill op de onderste regel.

With Sheets("Werkbon")
.ExportAsFixedFormat 0, "C:\B" & " " & .Cells(4, 5) & " " & .Cells(8, 3)
Dim outapp As Object
Dim outmail As Object
Set outapp = CreateObject("outlook.application")
Set outmail = outapp.CreateItem(0)
With outmail
.To = "iemand@email.nl"
.Subject = "Bon"
.Body = "Staandaard tekst !"
.attachments.Add "C:\B" & " " & Sheets("Werkbon").Cells(4, 5) & " " & Sheets("Werkbon").Cells(8, 3) & ".pdf"
.Send
End With
End With
Kill "C:\B" & " " & Sheets("Werkbon").Cells(4, 5) & " " & Sheets("Werkbon").Cells(8, 3) & ".pdf"

 

[edmoor]

Druk eens op F8 zodra je die gele regel ziet staan. Je krijgt dan waarschijnlijk een (fout)melding. Laat deze hier even weten.

 

[jverstraten]

Inderdaad krijg foutmelding Fout 53 "kan het bestand niet vinden"

 

[edmoor]

Ok. Dat maakt het dan duidelijk wat er aan de hand is.

 

[jverstraten]

Ja het maakt het nu duidelijk dat hij het pad niet vindt, wat toch wel vreemd is want hij is op dat pad toch opgeslagen.

Moet er nog iets meer bij vermeldt worden om het juiste pad te vinden ?? en zoja wat dan ???

 

[BjorntobeWild]

Het kan zijn dat het pad nog eens dubbel gequote moet worden.
Ik heb dit probleem ook eens gehad met een vbs bestand.
Anders het pad even weer laten geven in een msgBox en kijken of het juiste pad daadwerkelijk wordt weergegeven.

Groet,

Bjorn

 

[edmoor]

Het kan zijn dat het pad nog eens dubbel gequote moet worden.

Er zitten spaties in de bestandsnaam dus die kans is groot.

 

[Warme bakkertje]

With Sheets("Werkbon")
    fPad = "C:\B" & " " & .Cells(4, 5) & " " & .Cells(8, 3) & ".pdf"
    .ExportAsFixedFormat 0, fPad
End With
With CreateObject("outlook.application").CreateItem(0)
    .To = "iemand@email.nl"
    .Subject = "Bon"
    .Body = "Standaard tekst !"
    .attachments.Add fPad
    .display '.Send
End With
Kill fPad

 

[jverstraten]

Beste helpers,

Ik heb de code Van Rudi toegepast, werkt perfect.

Hoeve we ook niet meer uit te puzzelen waarom die andere niet werkte

Heel hartelijk dank

mvg
Johan

 

[Warme bakkertje]

Wss dan toch een foutje ergens in een padnaam.

Suc6 verder.