make-dir
[1/1] from: fantam::mailandnews::com at: 5-Sep-2000 20:52
Hello all,
I've experienced that make-dir in a ftp context doesn't create the
directories as expected. Instead of creating sub-directories, it
creates them one next to the the other along the root directory. Here
is the code I used:
system/schemes/ftp/passive: true
xoom: ftp://user:[pass--ftp--xoom--com]/backup/
file: %/d/mail/loose/test.txtr
path: dirize join xoom to-file remove next parse/all first split-path file "/"
print ["transferring:" join path second split-path file]
if not exists? path [
temp-path: copy xoom
foreach item remove next parse/all first split-path file "/" [
temp-path: append temp-path join item "/"
print temp-path
if not exists? temp-path [make-dir temp-path]
]
]
write/binary join path second split-path file read/binary file
Thanks in advance for your thoughts on this.
--
Fantam