Implementing images downloading
This commit is contained in:
parent
a304e4847a
commit
b9a49adf32
@ -333,8 +333,12 @@ GrafoscopioNode >> demote [
|
|||||||
GrafoscopioNode >> downloadImagesInto: folder [
|
GrafoscopioNode >> downloadImagesInto: folder [
|
||||||
"comment stating purpose of message"
|
"comment stating purpose of message"
|
||||||
|
|
||||||
self extractHtmlImages do: [ :each | |localFolder|
|
self extractHtmlImages do: [ :each | |localFolder path|
|
||||||
localFolder := (folder / each directory) ensureCreateDirectory.
|
path:=''.
|
||||||
|
(each directory substrings: '/') do: [ :eachDirectory |
|
||||||
|
path:= path , '/' , eachDirectory .
|
||||||
|
(folder / path) ensureCreateDirectory ].
|
||||||
|
localFolder := (folder / each directory).
|
||||||
ZnClient new
|
ZnClient new
|
||||||
url: each ;
|
url: each ;
|
||||||
downloadTo: localFolder . ]
|
downloadTo: localFolder . ]
|
||||||
|
Loading…
Reference in New Issue
Block a user