[REBOL] Re: ftp woes
From: SunandaDH:aol at: 5-Aug-2003 12:36
Maxim:
has anyone had any problem using make-dir on ftp paths?
It works for me, except I want to sometimes make a path /aa/bb/cc/ where /aa/
or /aa/bb/ doesn't yet exist.
Here's a function I use for ftp make-path. (It also works for non-ftp,
provided make-destination-path returns a local path)
;; ==========================
create-folder: func [folder-wanted
/local dest path
]
[
dest: make-destination-path folder-wanted
;; make-destination-path (not included in this email)
;; returns the fully qualified path, including the user-id and password
if exists? dest [return true]
path: copy "/"
foreach bit parse dest "/"
[
if not bit = ""
[append path join bit "/"
error? try [make-dir to-file path]
]
]
return true
]
Sunanda.
