AppleScript - Writing to non-existent directories, and non-existent files..

Question

All,
AppleScript - Writing to non-existent directories, and non-existent files...
Creating directories several levels deep on the fly.
How do we write to a file that does not exist, buried deep down in a hierarchy of directories that don't exist either...
In trying to do this I explored two options. One used AppleScript, assisted by UNIX, which was simplicity itself, the other one used only AppleScript and was considerably more complex, and slower.
http://www.mac-specialist.com/r/asckdirs.html
Hope these are useful,
Best Regards,
Bill Hernandez
Plano, Texas

Answer 1

Simplified code examples - lacking extensive error checking -
UNIX example 001:
set file_Name to "Sales Figures.txt" -- File to create.
set file_Path to "2006 Sales:Forecast:Fruits:Flordia:Oranges:Large" -- Folder to create.
set UNIXfilePath to (quoted form of (POSIX path of file_Path))
try
do shell script "mkdir -p " & UNIXfilePath -- Attempt to create a folde, and respective intermediary folder(s).
end try
try
do shell script "touch " & UNIXfilePath & "/" & file_Name -- Attempt to create a blank file.
end try
UNIX example 002:
set file_Name to "Sales Figures.txt" -- File to create.
set file_Path to "2006 Sales:Forecast:Fruits:Flordia:Oranges:Large" -- Folder to create.
try
do shell script "mkdir -p " & (quoted form of (POSIX path of file_Path)) -- Attempt to create a folde, and respective intermediary folder(s).
end try
-- Create a file, and enter some text.
set FREF to open for access file (file_Path & ":" & file_Name) with write permission
write "Beispieltext" to FREF
close access FREF
AppleScript example:
set file_Name to "Sales Figures.txt" -- File to create.
set file_Path to "2006 Sales:Forecast:Fruits:Flordia:Oranges:Large" -- Folder to create.
-- Obtain list of text items of 'file_Path'.
set {oAStID, AppleScript's text item delimiters} to {AppleScript's text item delimiters, ":"}
set filePathList to text items of file_Path
set AppleScript's text item delimiters to oAStID
tell application "Finder"
set folder_Path to name of startup disk -- Obtain name of boot disk.
repeat with i in filePathList -- Cycle through list.
try
make new folder at folder_Path with properties {name:i} -- create folder.
set folder_Path to folder_Path & ":" & i -- Create new path for next new folder.
end try
end repeat
end tell
-- Create a file, and enter some text.
set FREF to open for access file (folder_Path & ":" & file_Name) with write permission
write "Beispieltext" to FREF
close access FREF
  Mac OS X (10.4.4)