Hoi Ivo,
Wanneer je de bestandsnaam invoert in de inputbox, zet je dan de extensie er ook achter? Zo nee, dan zou dat wellicht de moeite van het proberen waard zijn.
Bert
Ivo ten Hagen wrote:
Cor Nouws schreef:
Ivo ten Hagen wrote:
Ik heb dit geprobeerd, maar het opslaan wil nog niet lukken.
myDoc = ThisComponent 'Dit document instellen
If not myDoc.haslocation then 'Document heeft nog geen naam / locatie
MsgBox "Bestand is nog niet opgeslagen"
' myPath = "C:\Documents and Settings\Data\" Dit gedeelte werkt nog niet goed
Klopt. Je moet ConvertToURL("C:\Documents and Settings\Data\") gebruiken.
Dat doe ik toch drie regels hierna?
' myFile = InputBox("Naam?")
' myNewFile = myPath & myFile
' myDoc.StoreAsUrl(ConvertToUrl(myNewFile)) Hier krijg ik een foutmelding mbt argumenten
STOP
end if
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
