Re: [gebruikers] directory van het huidige document

[Cor Nouws]

Dag Ivo,
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?
Ahum. Ik zag 'Dit gedeelte werkt nog niet goed' staan in je code en heb 
niet verdere gekeken.


'        myFile = InputBox("Naam?")
'        myNewFile  = myPath & myFile
'        myDoc.StoreAsUrl(ConvertToUrl(myNewFile))  Hier krijg ik een 
foutmelding mbt argumenten
        STOP
    end if
Als je bovenin nu toevoegt:
        Dim args(0) As New com.sun.star.beans.PropertyValue
en onderaan zet
        myDoc.StoreAsUrl(ConvertToUrl(myNewFile), args())
scheelt dat?
met vr. groet,
Cor

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]