0

WinActor V4を使っています。

フォルダの先頭ファイル名を取得するスクリプトは下記のようですが、フォルダの2番目、3番目、、のファイル名を取得するためには下記のスクリプトをどのように変更すれば良いでしょうか?

---<スクリプトここから>

Option Explicit

Dim objApl
Dim objFile
Dim objFolder
Dim objFolderItems
Dim objItem
Dim folderPath
Dim strExt

main()

Function main()

 folderPath = !フォルダ名!

 'シェルアプリケーションオブジェクトを作成します
 Set objApl = CreateObject("Shell.Application")
 Set objFile = CreateObject("Scripting.FileSystemObject")

 '指定フォルダのオブジェクトを作成します
 Set objFolder = objApl.NameSpace(folderPath)

 'フォルダオブジェクトから、入っているファイルやフォルダの全情報を取得します
 Set objFolderItems = objFolder.Items()
 SetUMSVariable $ファイル名$, ""

 For Each objItem In objFolderItems
    '取り出した物がファイルかフォルダかを判定
    If objItem.IsFolder <> True Then
        SetUMSVariable $ファイル名$, objItem.path
        exit function
    End If
 Next

 Set objApl = Nothing
 Set objFile = Nothing

End Function

---<スクリプトここまで>

この質問は解決済みのためクローズされています。
gorby5775 ベストアンサーとして選択しました
回答とコメントは、会員登録(無料)で閲覧できるようになります。