-----Messaggio Originale----- 
Da: "Marcos Gambeta" <[email protected]>
A: "xHarbour-Developers" <[email protected]>
Data invio: mercoledì 18 febbraio 2009 19.15
Oggetto: Re: [xHarbour-developers] Function DirectoryRecurse 
changecurrentdirectory


> Try this:
>
> procedure main ()
>
>   ? "current"
>   ? curdir()
>
>   makedir("dir1")
>
>   dirchange("dir1")
>
>   ? "before"
>   ? curdir()
>
>   a := directoryrecurse("c:\xhb\bin") // use any folder here with some
> files
>
>   ?
>
>   ? "after"
>   ? curdir()
>
>   inkey(0)
>
> return

current
XHARBOUR
before
XHARBOUR\dir1

after
XHARBOUR\dir1

EMG

--
EMAG Software Homepage:     http://www.emagsoftware.it
The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: http://www.emagsoftware.it/tbosg
The EMG Music page:         http://www.emagsoftware.it/emgmusic 


------------------------------------------------------------------------------
Open Source Business Conference (OSBC), March 24-25, 2009, San Francisco, CA
-OSBC tackles the biggest issue in open source: Open Sourcing the Enterprise
-Strategies to boost innovation and cut costs with open source participation
-Receive a $600 discount off the registration fee with the source code: SFAD
http://p.sf.net/sfu/XcvMzF8H
_______________________________________________
xHarbour-developers mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/xharbour-developers

Reply via email to