« [AppleScript]フォルダ名を変更する | トップページ | Acrobatで封筒印刷(日常用編) »

[AppleScript]ファイル名のフォルダを作ってその中に入れる

拡張子をのぞいたファイル名で
フォルダを作って
その中にファイルを移動する。

 


----ファイルを選択して FileAlias に格納
set FileResult to choose file "変更するファイルを選択"
----エリアスを取得
set FileAlias to FileResult as alias
----FileAliasをテキスト形式に変更してFilePathに格納
set FilePath to FileAlias as Unicode text
----FileAliasの情報を取得ObjInfoに格納
set ObjInfo to info for FileAlias
----ObjInfoからファイル名を抜き出しFileNameに格納
set FileName to name of ObjInfo as Unicode text
----ObjInfoから拡張子を抜き出しExtNameに格納
set ExtName to name extension of ObjInfo as Unicode text
----ファイル名の文字数を数える
set CntFileName to (the length of characters of FileName) as integer
----拡張子の文字数を数える1足すのはカンマ分
set CntExtName to (the length of characters of ExtName) + 1 as integer
----ショートファイル名の文字数は?
set CntShotFileName to CntFileName - CntExtName as integer
----拡張子抜きのショートファイル名を抜き出します
set ShortFileName to characters 1 thru CntShotFileName of (the FileName) as Unicode text


----パスの文字数を数える
set CntFilePath to the length of characters of FilePath as integer
----パスの文字数 ー ファイル名でディレクトリ名の文字数を計算する
set CntDirPath to CntFilePath - CntFileName as integer
----ファイルのディレクトリ名を定義する
set DirName to characters 1 thru CntDirPath of FilePath as Unicode text


tell application "Finder"
----ファイルのディレクトリにショートファイル名のフォルダを作ります。
try
make new folder at (DirName) with properties ¬
{name:ShortFileName ¬
, owner privileges:read write ¬
, group privileges:read write ¬
, everyones privileges:read write ¬
, comment:FileName ¬
, description:ShortFileName ¬
}
end try
end tell



tell application "Finder"
try
----選んだファイルを作ったフォルダの中に移動します。
move (FileAlias) to alias (DirName & ShortFileName & ":")
delete alias (DirName & ShortFileName & ":.DS_Store")
end try

end tell


 

「move2FileNameFolder.rtf」をダウンロード

「move2FileNameFolder.scpt.zip」をダウンロード

 

↑のスクリプトをドロップレットにしたもの

「move2FileNameFolder.app.zip」をダウンロード


|

« [AppleScript]フォルダ名を変更する | トップページ | Acrobatで封筒印刷(日常用編) »

AppleScriptFolder」カテゴリの記事

コメント

追記
解決編を掲載しました。
http://force4u.cocolog-nifty.com/skywalker/2011/03/acrobat-apple-1.html
です。
参考にしてください。


試していないのでナニですが

ファイル名の長さはAcrobatの制限でそうなってしまうわけだから
ファイル名を変える部分をFinderに受け持たせると大丈夫じゃないか?と

Finder ファイル名の取得 変更後のファイル名へ整形
ACROBAT ファイルオープン 処理 保存時 Finderが決めた名前にする

でどうかな?

投稿: force4u | 2011年3月18日 (金) 15時03分

いつも、参考にさせてもらっています。

わからないことがあるのでお力を貸していただければと思います。
当方は、MacOSX 10.4.11です。

Acrobatでtif変換するスクリプトを作成したのですが
ファイル名の文字数が多いと最後が#0になってしまいます。
変換前のPDFの拡張子の前までをそのままいかしたいのですがどうしていいのか。。。

すいませんが、お力をおかし下さい。

下記に作成したscriptをのせておきました。

on open theseItems
quit application "Adobe Acrobat Professional"
launch application "Adobe Acrobat Professional"
set savefolder to choose folder with prompt ("TIFファイルの保存先を選択してください。" as Unicode text)
set destinationFolder to savefolder as text
repeat with oneItem in theseItems
set theName to name of (info for oneItem)
if theName ends with ".pdf" then
tell application "Adobe Acrobat Professional"
open oneItem
set newfile to destinationFolder & text 1 thru -4 of theName & "tif"
save front document to file newfile using conversion "com.adobe.acrobat.tiff"
close front document saving no
end tell
end if
end repeat
quit application "Adobe Acrobat Professional"
end open

投稿: tsubasa | 2011年3月18日 (金) 10時47分

この記事へのコメントは終了しました。

« [AppleScript]フォルダ名を変更する | トップページ | Acrobatで封筒印刷(日常用編) »