FileMaker メディア管理の作り方 R4 インポートLEVEL 1

エラー処理を置いて、ダイアログを開いてからキャンセルする行為に対処しておくことがとても重要です。だってそういう動作が一番頻度高いもの。

スクリプトステップ「フォルダパスを取得」で取得できるのは出来損ないパスで、FMパスのお約束、接頭語をくっつけないとパスになりません。「file:」を加えるのを忘れずに。

エラー処理 [ オン ]
フォルダパスを取得 [ $folder ]
If [ Get ( 最終エラー ) ≠ 0 ]
  現在のスクリプト終了 [ ]
End If
フィールド設定 [ 設定::sessionFolderFM; "file:" & $folder ]

フォルダパス（FM形式）を sessionFolderFMフィールドに格納しました。

#***********************************************************
#新規メディア登録
# ファイル選択ボタンで発動
# 格納でもインポート元パスを保存
#***********************************************************
## ポップオーバーかもしれないので一応閉じるスクリプトを入れておく
スクリプト実行 [ 「ポップオーバー閉じる【R4】」 ]
## カード表示かもしれないので閉じるを入れておく
If [ Get ( ウインドウスタイル )=3 ]
ウインドウを閉じる [ 現在のウインドウ ]
End If

#START

新規レコード/検索条件
エラー処理 [ オン ]
If [ 設定::登録方法 = 0 ]
 #--------------------------------
 #参照の場合
 #--------------------------------
 ファイルを挿入 [ MediaDB::オブジェクト ] [ データの格納方法: 参照 ] [ 内容を表示 ] [ 圧縮: 圧縮しない ]
 If [ Get ( 最終エラー ) = 1 ]
  #キャンセルなら
  レコード/検索条件削除 [ ダイアログなし ]
  現在のスクリプト終了 [ ]
 End If
Else
 #--------------------------------
 #格納の場合
 #--------------------------------
 #最初に参照で読み込み、インポート元パスを記録
 ファイルを挿入 [ MediaDB::オブジェクト ] [ データの格納方法: 参照 ] [ アイコンを表示 ] [ 圧縮: 圧縮しない ]
 変数を設定 [ $pathFM; 値:GetValue ( GetPaths ( MediaDB::オブジェクト ) ; 2 ) ]
 フィールド設定 [ MediaDB::インポート元パス; Substitute ( $pathFM ; "file:" ; "file:/" ) ]
 #改めて格納で挿入 - いずれは「参照↔格納」変換スクリプトが必要
 ファイルを挿入 [ MediaDB::オブジェクト; 「$pathFM」 ] [ データの格納方法: 挿入 ] [ 内容を表示 ] [ 圧縮: 圧縮しない ]
 If [ Get ( 最終エラー ) = 1 ]
  #キャンセルなら
  レコード/検索条件削除 [ ダイアログなし ]
  現在のスクリプト終了 [ ]
 End If
End If

#--------------------------------
#パスなどデータをゲット
#--------------------------------

If [ 設定::登録方法 = 0 ]
 変数を設定 [ $各種; 値:Let ( [ obj = MediaDB::オブジェクト; path = GetValue ( GetAsText ( obj ) ; ValueCount ( GetAsText ( obj ) ) ) ; path = GetValue ( Substitute ( path ; ":" ; ¶ ) ; 2 ) ; $fileName = GetContainerAttribute ( obj ; "fileName" ); $filePathFM = "file:" & path ; $filePosix = ConvertFromFileMakerPath ( $filePathFM ; PosixPath ) ; $拡張子 = GetExtension ( obj ) ]; "" ) ]
 #サムネイル強制作成
 スクリプト実行 [ 「サムネイルを作成する」 ]
Else
 変数を設定 [ $各種; 値:Let ( [ obj = MediaDB::オブジェクト; path = GetValue ( GetAsText ( obj ) ; ValueCount ( GetAsText ( obj ) ) ) ; path = GetValue ( Substitute ( path ; ":" ; ¶ ) ; 2 ) ; path = If ( Left ( path ; 1 )= "/" ; Right ( path ; Length ( path ) - 1 ) ; path ) ; $fileName = GetContainerAttribute ( obj ; "fileName" ); $filePathFM = 設定::オブジェクトフォルダpathFM & path ; $filePosix = 設定::オブジェクトフォルダposix & "/" & path ; $拡張子 = GetExtension ( obj ) ]; "" ) ]
 フィールド設定 [ MediaDB::サムネイル; GetThumbnail ( MediaDB::オブジェクト ; 150 ; 150 ) ]
End If
フィールド設定 [ MediaDB::ファイル名; $fileName ]
フィールド設定 [ MediaDB::filePathFM; $filePathFM ]
フィールド設定 [ MediaDB::filePosix; $filePosix ]
フィールド設定 [ MediaDB::拡張子; $拡張子 ]

※ カスタム関数：GetPaths（今だけ用の乱暴な関数） と GetExtension（汎用の拡張子抽出関数） を使っています。
※ スクリプト：ポップオーバーを閉じるスクリプト、前回作ったサムネイルを作成するスクリプトを使用しています。

#***********************************************************
#フォルダインポート
#***********************************************************
#各種条件に基づいたインポート
# 格納か参照か
# 階層のみか無制限か
#GLB sessionFolder 設定済みが前提
変数を設定 [ $path; 値:設定::sessionFolderFM ]
## ポップオーバーかもしれないので一応閉じるスクリプトを入れておく
スクリプト実行 [ 「ポップオーバー閉じる【R4】」 ]
## カード表示かもしれないので閉じるを入れておく
If [ Get ( ウインドウスタイル )=3 ]
ウインドウを閉じる [ 現在のウインドウ ]
End If
#更新するためには対象レコードを揃えておく必要がある
#パスを 設定::sessionFolderFM で検索
エラー処理 [ オン ]
検索実行 [ 指定された検索条件: レコードの検索; 条件: MediaDB::filePathFM: 「"$path"」 ] [ 記憶する ]
If [ Get ( 最終エラー )≠0 or Get ( 対象レコード数 ) = 0 ]
変数を設定 [ $$import; 値:"追加" ]
#対象0 またはエラーなら、既存は何もない。「追加」する
Else
変数を設定 [ $$import; 値:"更新" ]
#対象があればそのフォルダはレコードに既存である。「更新」する
End If
If [ 設定::登録方法 = 0 ]
#---------------------------------
#参照の場合
#---------------------------------
If [ $$import="追加" ]
#追加の場合
#---------------------------------
If [ 設定::階層指定 = 0 ]
#階層すべて
レコードのインポート [ フォルダ名: $path; すべての下位フォルダを含む; ファイルタイプ: ピクチャとムービーファイル; 参照のみをインポート; ターゲット: 「MediaDB」; 方法: 追加; 文字セット: 「UTF-8」; フィールドデータのインポート順: ソースフィールド 1 のインポート MediaDB::オブジェクト; ソースフィールド 2 のインポート MediaDB::ファイル名; ソースフィールド 3 のインポート MediaDB::インポート元パス; ソースフィールド 4 のインポート MediaDB::サムネイル; MediaDB::ID(入力値の自動化を実行); MediaDB::拡張子(入力値の自動化を実行); MediaDB::レコード作成日(入力値の自動化を実行); MediaDB::レコード変更日(入力値の自動化を実行); MediaDB::sessionFolderName(入力値の自動化を実行); ] [ ダイアログなし ]
Else
#指定階層のみ
レコードのインポート [ フォルダ名: $path; ファイルタイプ: ピクチャとムービーファイル; 参照のみをインポート; ターゲット: 「MediaDB」; 方法: 追加; 文字セット: 「UTF-8」; フィールドデータのインポート順: ソースフィールド 1 のインポート MediaDB::オブジェクト; ソースフィールド 2 のインポート MediaDB::ファイル名; ソースフィールド 3 のインポート MediaDB::インポート元パス; ソースフィールド 4 のインポート MediaDB::サムネイル; MediaDB::ID(入力値の自動化を実行); MediaDB::拡張子(入力値の自動化を実行); MediaDB::レコード作成日(入力値の自動化を実行); MediaDB::レコード変更日(入力値の自動化を実行); MediaDB::sessionFolderName(入力値の自動化を実行); ] [ ダイアログなし ]
End If
Else
#更新の場合
#---------------------------------
If [ 設定::階層指定 = 0 ]
#階層すべて
レコードのインポート [ フォルダ名: $path; すべての下位フォルダを含む; ファイルタイプ: ピクチャとムービーファイル; 参照のみをインポート; ターゲット: 「MediaDB」; 方法: 更新; 一致しないレコードを追加する; 文字セット: 「UTF-8」; フィールドデータのインポート順: ソースフィールド 1 のインポート MediaDB::オブジェクト; ソースフィールド 2 の一致 MediaDB::ファイル名; ソースフィールド 3 の一致 MediaDB::インポート元パス; ソースフィールド 4 のインポート MediaDB::サムネイル; MediaDB::ID(入力値の自動化を実行); MediaDB::拡張子(入力値の自動化を実行); MediaDB::レコード作成日(入力値の自動化を実行); MediaDB::レコード変更日(入力値の自動化を実行); MediaDB::sessionFolderName(入力値の自動化を実行); ] [ ダイアログなし ]
Else
#指定階層のみ
レコードのインポート [ フォルダ名: $path; ファイルタイプ: ピクチャとムービーファイル; 参照のみをインポート; ターゲット: 「MediaDB」; 方法: 更新; 一致しないレコードを追加する; 文字セット: 「UTF-8」; フィールドデータのインポート順: ソースフィールド 1 のインポート MediaDB::オブジェクト; ソースフィールド 2 の一致 MediaDB::ファイル名; ソースフィールド 3 の一致 MediaDB::インポート元パス; ソースフィールド 4 のインポート MediaDB::サムネイル; MediaDB::ID(入力値の自動化を実行); MediaDB::拡張子(入力値の自動化を実行); MediaDB::レコード作成日(入力値の自動化を実行); MediaDB::レコード変更日(入力値の自動化を実行); MediaDB::sessionFolderName(入力値の自動化を実行); ] [ ダイアログなし ]
End If
End If
Else
#---------------------------------
#格納の場合
#---------------------------------
If [ $$import="追加" ]
#追加の場合
#---------------------------------
If [ 設定::階層指定 = 0 ]
#階層すべて
レコードのインポート [ フォルダ名: $path; すべての下位フォルダを含む; ファイルタイプ: ピクチャとムービーファイル; ターゲット: 「MediaDB」; 方法: 追加; 文字セット: 「UTF-8」; フィールドデータのインポート順: ソースフィールド 1 のインポート MediaDB::オブジェクト; ソースフィールド 2 のインポート MediaDB::ファイル名; ソースフィールド 3 のインポート MediaDB::インポート元パス; ソースフィールド 4 のインポート MediaDB::サムネイル; MediaDB::ID(入力値の自動化を実行); MediaDB::拡張子(入力値の自動化を実行); MediaDB::レコード作成日(入力値の自動化を実行); MediaDB::レコード変更日(入力値の自動化を実行); MediaDB::sessionFolderName(入力値の自動化を実行); ] [ ダイアログなし ]
Else
#指定階層のみ
レコードのインポート [ フォルダ名: $path; ファイルタイプ: ピクチャとムービーファイル; ターゲット: 「MediaDB」; 方法: 追加; 文字セット: 「UTF-8」; フィールドデータのインポート順: ソースフィールド 1 のインポート MediaDB::オブジェクト; ソースフィールド 2 のインポート MediaDB::ファイル名; ソースフィールド 3 のインポート MediaDB::インポート元パス; ソースフィールド 4 のインポート MediaDB::サムネイル; MediaDB::ID(入力値の自動化を実行); MediaDB::拡張子(入力値の自動化を実行); MediaDB::レコード作成日(入力値の自動化を実行); MediaDB::レコード変更日(入力値の自動化を実行); MediaDB::sessionFolderName(入力値の自動化を実行); ] [ ダイアログなし ]
End If
Else
#更新の場合
#---------------------------------
If [ 設定::階層指定 = 0 ]
#階層すべて
レコードのインポート [ フォルダ名: $path; すべての下位フォルダを含む; ファイルタイプ: ピクチャとムービーファイル; ターゲット: 「MediaDB」; 方法: 更新; 一致しないレコードを追加する; 文字セット: 「UTF-8」; フィールドデータのインポート順: ソースフィールド 1 のインポート MediaDB::オブジェクト; ソースフィールド 2 の一致 MediaDB::ファイル名; ソースフィールド 3 の一致 MediaDB::インポート元パス; ソースフィールド 4 のインポート MediaDB::サムネイル; MediaDB::ID(入力値の自動化を実行); MediaDB::拡張子(入力値の自動化を実行); MediaDB::レコード作成日(入力値の自動化を実行); MediaDB::レコード変更日(入力値の自動化を実行); MediaDB::sessionFolderName(入力値の自動化を実行); ] [ ダイアログなし ]
Else
#指定階層のみ
レコードのインポート [ フォルダ名: $path; ファイルタイプ: ピクチャとムービーファイル; ターゲット: 「MediaDB」; 方法: 更新; 一致しないレコードを追加する; 文字セット: 「UTF-8」; フィールドデータのインポート順: ソースフィールド 1 のインポート MediaDB::オブジェクト; ソースフィールド 2 の一致 MediaDB::ファイル名; ソースフィールド 3 の一致 MediaDB::インポート元パス; ソースフィールド 4 のインポート MediaDB::サムネイル; MediaDB::ID(入力値の自動化を実行); MediaDB::拡張子(入力値の自動化を実行); MediaDB::レコード作成日(入力値の自動化を実行); MediaDB::レコード変更日(入力値の自動化を実行); MediaDB::sessionFolderName(入力値の自動化を実行); ] [ ダイアログなし ]
End If
End If
End If
If [ Get ( 最終エラー ) ≠ 0 ]
カスタムダイアログを表示 [ メッセージ: "error: " & Get ( 最終エラー ) & " エラーにより中止します"; デフォルトボタン: 「OK」, 確定: 「はい」; ボタン 2: 「キャンセル」, 確定: 「いいえ」 ]
現在のスクリプト終了 [ ]
End If
#フィールドを一括置換で設定
フィールド内容の全置換 [ MediaDB::filePathFM; 計算で置き換える: GetValue ( GetPaths ( MediaDB::オブジェクト ) ; 2 ) ] [ ダイアログなし ]
フィールド内容の全置換 [ MediaDB::filePosix; 計算で置き換える: GetValue ( GetPaths ( MediaDB::オブジェクト ) ; 1 ) ] [ ダイアログなし ]
フィールド内容の全置換 [ MediaDB::sessionFolderFM; 計算で置き換える: $path ] [ ダイアログなし ]
フィールド内容の全置換 [ MediaDB::sessionFolderPosix; 計算で置き換える: If ( Right ( ConvertFromFileMakerPath ( $path ; PosixPath ) ; 1 ) = "/" ; Left ( ConvertFromFileMakerPath ( $path ; PosixPath ) ; Length ( ConvertFromFileMakerPath ( $path ; PosixPath ) ) - 1 ) ; ConvertFromFileMakerPath ( $path ; PosixPath ) ) ] [ ダイアログなし ]
フィールド内容の全置換 [ MediaDB::sessionTimeStamp; 計算で置き換える: Get ( タイムスタンプ ) ] [ ダイアログなし ]
検索実行 [ 指定された検索条件: レコードの検索; 条件: MediaDB::sessionFolderFM: 「$path」 ] [ 記憶する ]
#サムネイルのエラー処理
スクリプト実行 [ 「サムネイルチェックと作成Loop」 ]
#設定をクリア
フィールド設定 [ 設定::sessionFolderFM; "" ]
フィールド設定 [ 設定::インポート対象; "folder" ]
フィールド設定 [ 設定::登録方法; 0 ]
フィールド設定 [ 設定::階層指定; 0 ]
変数を設定 [ $$import ]