Bedankt, ik heb het getest en het werkt.
Ookal had ik dat niet van deze code verwacht, omdat volgens mijn interpretatie
van de engelse tekst uit de api
sDocURL = oDoc.getURL() pas kan worden aangeroepen na een oDoc.saveAsUrl()
Ik kon geen oDoc.saveAsUrl() uitvoeren omdat ik de Url niet wist.
Maar blijkbaar kan het dus ook anders.

Jef.
Citeren Dick Groskamp <[EMAIL PROTECTED]>:

> [EMAIL PROTECTED] schreef:
> 
> >Geachte gebruikers,
> >Kan iemand mij helpen aan een macro die het huidige path of de huidige
> >directory laat zien van een calc document?
> >Ik moet daarin namelijk een submap aanmaken en het document opslaan.
> >Bij voorbaat dank,
> >Jef
> >
> >  
> >
> Jef,
> 
> uit het macrodocument van Andrew Pitonyak:
> (beschikbaar op  http://www.pitonyak.org/AndrewMacro.sxw
> <http://www.pitonyak.org/AndrewMacro.sxw>
> 
> *REM Author: Andrew Pitonyak*
> 
> *Sub DocumentFileNames*
> 
> *Dim oDoc*
> 
> *Dim sDocURL*
> 
> *oDoc = ThisComponent*
> 
> *If (Not GlobalScope.BasicLibraries.isLibraryLoaded("Tools")) Then*
> 
> *GlobalScope.BasicLibraries.LoadLibrary("Tools")*
> 
> *End If*
> 
> *If (oDoc.hasLocation()) Then*
> 
> *sDocURL = oDoc.getURL()*
> 
> *Print "Document Directory = " & DirectoryNameoutofPath(sDocURL, "/")*
> 
> *Print "Document File Name = " & FileNameoutofPath(sDocURL, "/")*
> 
> *End If*
> 
> *End Sub
> *
> 
> 
> *Voor info over macro's etc. kijk eens hier:
> http://www.oooforum.org/forum/viewforum.phtml?f=11
> 
> of een van de andere fora daar.*
> 
> -- 
> DiGro
> 
> ----------------------------------------------------------------------
> Scanned for virus and spam with Norton Antivirus
> ----------------------------------------------------------------------
> 
> 
> 
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> 
> 




-- 
_____________________________________________________________________
Versatel ADSL Gratis. De voordelen van gratis internet met de
snelheid van ADSL. Zonder abonnementskosten en zonder vast contract.
Je betaalt alleen voor de tijd online. Nu zonder aansluitkosten en 
met gratis modem. Bestel snel op www.versatel.nl.


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

Antwoord per e-mail aan