8

みなさん、こんにちは。

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

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

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

以上です!

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

anothersolution 新しいコメントを投稿
回答とコメントは、会員登録(無料)で閲覧できるようになります。