みなさん、こんにちは。

WinActorで指定フォルダに格納しているファイルを操作する際に、

更新日時が一番古いものから処理したい、というケースはありませんか？

私の場合はありました。

ということで、踊ってみました！

今回は、ライブラリの編集での対応です。

・使用するライブラリ：先頭ファイルの取得

・追加する文言

Dim d
Dim fileItem
Dim targetFile

を冒頭の変数宣言部分に、

Set fileItem = Nothing

を同じように Set ～ ＝ Nothing

となっているところに並べます。

・変更箇所

Before：

「SetUMSVariable $ファイル名$, ""」

から

「Set objApl = Nothing」

の間のスクリプトを以下のように変更します。

d = Now()

　For Each objItem In objFolderItems
　取り出した物がファイルかフォルダかを判定
　　If objItem.IsFolder <> True Then
　　　Set fileItem = objFile.getFile(objItem.path)
　　　　If d > fileItem.DateLastModified then
　　　　　d = fileItem.DateLastModified
　　　　　targetFile = fileItem.path
　　　　End If
　　End If
　Next

　SetUMSVariable $ファイル名$, targetFile

そうしますと、以下のフォルダから

以下のファイルパスが取得できます。

以上です！

ありがとうございました！