フォルダの2番目、3番目のファイル名取得方法
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
---<スクリプトここまで>