【AppleScript】Finder上でフォルダの日付部分を変更したい

こんな感じになるのかな？

tell application "Finder"
	activate
	
	-------日付を取得
	set nowTime to my DateAndTIme(current date)
	--(これは、ネットにあった日付取得のスクリプトを参考にして別記してます)
	
	set x to selection as alias
	set y to name of x
	
	set z to characters 1 thru 8 of y as text
	
	set name of folder x to my replaceText(y, z, nowTime)
	
end tell

on replaceText(theText, serchStr, replaceStr)
	set tmp to AppleScript's text item delimiters
	set AppleScript's text item delimiters to serchStr
	set theList to every text item of theText
	set AppleScript's text item delimiters to replaceStr
	set theText to theList as string
	set AppleScript's text item delimiters to tmp
	return theText
end replaceText

追記）

参考：Managements of AppleScript's text item delimiters

このコードだと最初の1回のみしか正しく動作しないでしょう？

原因は...

＞AppleScript's text item delimiters

これの使い方です。。

このままだとnowTimeの値に置き換わったままになってしまって、以後の全てのスクリプトにまで影響してしまいます。

以下のページの「置換」の例にあるように、使用する前に退避、使用後に復元するようにしましょう。

鳶嶋工房 / AppleScript / Tips / 文字列の検索・置換

一度下記を実行してAppleScript's text item delimitersを初期化しておきましょう。

set AppleScript's text item delimiters to null

s55k1n8 さんによる書き込み：

ドットや半角スペースが原因で問題が起きたことはありませんでした。

ドットは拡張子だと勘違いされちゃうんですかね・・・？

.app や .rtfd など、拡張子として使われる文字列以外は大丈夫ですよ。ダメな場合は Finder が警告してくれます。

あと、スペースについてですが、ネット上に時々出回ってる出来の悪いスクリプトだと問題が起きる場合がありますが、まあ問題ないと考えて良いでしょうね。

ファイル名とかフォルダ名にドットや半角スペースを入れるのは好ましく無いのでは、

追記:

AppleScript でファイル名を変更する場合は、無警告で「x.app」とか「.x」とかできてしまうのでその点は要注意です。