property NSString : a reference to current application’s NSString
property NSFileManager : a reference to current application’s NSFileManager
property NSOrderedSame : a reference to current application’s NSOrderedSame

set newPath to POSIX path of (choose file name)

set ab to chkExistPOSIXpathAndIncrementChildNumber(newPath) of me

–POSIX path stringを与えると、ファイル名の重複を検出して、ファイル名の名称回避を行って、ファイル名のみを返す
on chkExistPOSIXpathAndIncrementChildNumber(aPOSIX as string)
　　set aStr to NSString’s stringWithString:aPOSIX
　　
　　–ファイルパス（フルパス）からファイル名部分を取得
　　set bStr to aStr’s lastPathComponent()
　　–> "P0000_000.csv"
　　
　　–ファイル名から拡張子を取得
　　set cStr to (bStr’s pathExtension()) as string
　　–> "csv"
　　
　　–ファイル名から拡張子を削除
　　set dStr to (bStr’s stringByDeletingPathExtension()) as string
　　–> "P0000_000"
　　
　　–ファイルパス（フルパス）から親フォルダを取得（ただし末尾はスラッシュになっていない）
　　set eStr to (aStr’s stringByDeletingLastPathComponent()) as string
　　–>　　"/Users/me/Desktop"
　　
　　set aManager to NSFileManager’s defaultManager()
　　set aRes to (aManager’s fileExistsAtPath:aStr) as boolean
　　if aRes = false then
　　　　–ファイル名の衝突がなかった場合
　　　　return bStr as string
　　end if
　　
　　set hitF to false
　　repeat with i from 1 to 65535
　　　　
　　　　set tmpPath to (eStr & "/" & dStr & "_" & (i as string) & "." & cStr)
　　　　set tmpStr to (NSString’s stringWithString:tmpPath)
　　　　set aRes to (aManager’s fileExistsAtPath:tmpStr) as boolean
　　　　set bRes to ((tmpStr’s caseInsensitiveCompare:eStr) is not equal to (NSOrderedSame)) as boolean
　　　　
　　　　if {aRes, bRes} = {false, true} then
　　　　　　set hitF to true
　　　　　　exit repeat
　　　　end if
　　　　
　　end repeat
　　
　　if hitF = false then return false
　　
　　–ファイルパス（フルパス）からファイル名部分を取得
　　set returnFileName to tmpStr’s lastPathComponent()
　　return (returnFileName as string)
　　
end chkExistPOSIXpathAndIncrementChildNumber