Ken,
Why do you bother with the second parameter pType? Just drop it and
change the following from:
put urlEncode(last item of pFilePath) into tItem
delete last item of pFilePath
put the directory into tOldDir
set the directory to pFilePath
if pType = "file" then
put the detailed files into tDetailedList
else
put the detailed folders into tDetailedList
end if
to:
put there is a file pFilePath into tIsFile -- new script line
put urlEncode(last item of pFilePath) into tItem
delete last item of pFilePath
put the directory into tOldDir
set the directory to pFilePath
if tIsFile then -- modified script line
put the detailed files into tDetailedList
else
put the detailed folders into tDetailedList
end if
then the first line of your function is simply:
function stsFileInfo pFilePath
and that's it!
Cheers,
Joel
[...]
on mouseUp
answer file "Get a file:"
if it <> "" then
put stsFileInfo(it,"file") into tDocInfoA
put tDocInfoA["creatorType"]
end if
end mouseUp
If I selected a Word document, this would return "MSWDW8BN".
----------------------------------------------------------------------
--| FUNCTION: stsFileInfo
--|
--| Author: Ken Ray
--| Version: 1.0
--| Created: 3/4/04
--| Last Mod: --
--| Requires: --
--|
--| Retrieves the file/folder information on a specific file/folder
in a
parseable array
----------------------------------------------------------------------
function stsFileInfo pFilePath,pType
-- supports keys of
"full,fileName,dataSize,resSize,createDate,modDate,accessDate,BUdate,o
wnerID
,groupID,permissions,creatorType,Size"
set the itemDel to "/"
put urlEncode(last item of pFilePath) into tItem
delete last item of pFilePath
put the directory into tOldDir
set the directory to pFilePath
if pType = "file" then
put the detailed files into tDetailedList
else
put the detailed folders into tDetailedList
end if
[...]
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
