Copying network volume folder structure to desktop without files

Any applescriptObjC ninja’s out there that can help me with the following…

I need an app which copies the whole folder structure from a network volume which i want to choose manually to the desktop.

For example I have a volume called XSAN_live, which has 10 folders with all kinds of files in it. I want the app to let me manually point to this volume and then makes a new folder on the desktop called XSAN_live with the 10 folders in it but without all the files…

Any help to point me in the right direction is appreciated! also in old fashioned applescript offcourse…


So i managed to find some snippets and put them together but the thing is it doesn’t copy subfolders in folders…

any idea’s someone ???

set sourceFolder to choose from list (list disks)

set sourceFolderName to (sourceFolder as text)

set destinationFolder to ((path to desktop as text) & (sourceFolder as text))

set folderList to {}

tell application "Finder"
	set folderList to every folder of folder sourceFolder as alias list
end tell

if folderList is not {} then
	do shell script "mkdir -p " & quoted form of POSIX path of destinationFolder
	set pathLength to ((length of POSIX path of sourceFolder) + 1)
	repeat with oneFolder in folderList
		set restPath to text pathLength thru -1 of POSIX path of (oneFolder as Unicode text)
		do shell script "mkdir -p " & quoted form of POSIX path of destinationFolder & restPath with administrator privileges
	end repeat
end if