[vb] automatisch files overschrijven

[Verwijderd]

Ik heb dit

Private Sub open_template_Click()
Dim temp As String
Set objword = New Word.Application
temp = templatepath + documentselection.Text
objword.Documents.Open (temp)
Call replace("ONTVANGER", ontvanger.Text)
Call replace("AFZENDER_BOVEN", afzender.Text)
Call replace("ONDERWERP", onderwerp.Text)
Call replace("AANSPREEKNAAM", aanspreeknaam.Text)
Call replace("AFZENDER_ONDER", afzender.Text)
temp = InputBox("Enter the filename", "Enter Filename...")
objword.ActiveDocument.SaveAs ("P:\nedcon outpost\documents\" + temp)
objword.Quit
MsgBox "Document created"
Set objword = Nothing
End Sub

maar als er nu al een bestand staat met die naam, dan geeft hij een error, is er een functie om dan eerst te vragen of hij het kan overschrijven???

Alvast bedankt,

[MrBrown]

Ik weet niet of dat kan, maar misschien kan je met het filesystemobject kijken of het bestand bestaat en zo ja verwijderen?

[Greyfox]

kun je geen argument meegeven aan die functie?
Meestal is het zo dat je via een argument kunt aangeven of ie moet overschrijven of niet.

[Verwijderd]

maar er is dus geen functie voor als bijvoorbeeld

inputbox("blaaat","blaat")

[Verwijderd]

En zo dan

code:

if Dir("P:\nedcon outpost\documents\" + temp) <> "" Then Kill "P:\nedcon outpost\documents\" + temp

[Verwijderd]

maar dan krijg je toch geen window?

[ParaNoiMia]

<zucht>

dan doe je toch ipv direct een kill eerst een msgbox ?
En geeft de gebruiker een vbYes dan kill je de file
en anders laat je de gebruiker een andere naam geven


Zo moeilijk is dat toch niet ?

[Delphi32]

Ik meen me te herinneren dat er een overloaded SaveAs methode aan ActiveDocument hangt, waarin je kunt opgeven of de file al dan niet automatisch overschreven moet worden... kan je dat niet in VB nagaan?
(werk al jaren niet meer met VB, zie sig, maar no hard feelings :-)
Gewoon typen

code:

Word.ActiveDocument.SaveAs(FileName,

en dan kijken wat je code completion doet. Toch?