フォルダ内の.csvファイル名を 変数:ファイル名 に入れたい
フォルダ内の.csvファイル名を 変数:ファイル名 に入れる目的で下記のスクリプトを作成しました。(前後に一次元配列処理がありますが省略)
上記のエラーが出て止まります。VBスクリプトがわかる方、おかしいところを教えてください!
ーーー<ここから>ーーー
Public objApl
Public objFolder
Public objFolderItems
Public objItem
Public folderPath
Public i
folderPath = !フォルダ名!
'シェルアプリケーションオブジェクトを作成します
Set objApl = CreateObject("Shell.Application")
'指定フォルダのオブジェクトを作成します
Set objFolder = objApl.NameSpace(folderPath)
'フォルダオブジェクトから、入っているファイルやフォルダの全情報を取得します
Set objFolderItems = objFolder.Items()
'変数値を取得
i = !カウンタ!
If CInt(i) < objFolderItems.Count Then
'ファイルやフォルダの情報を1コ取り出します
Set objItem = objFolderItems.Item(CInt(i))
'取り出した物が.CSVファイルか否かを判定
SetUMSVariable $ファイル名$, objItem.path
'取り出した物が.CSVファイルであれば、種別にTrueを設定
If UCase(objFileSys.GetExtensionName(f.Path)) = "CSV" Then
SetUMSVariable $種別$, "True"
i = i + 1
MsgBox i
MsgBox $種別$
Else
'取り出した物が.CSVファイル以外であれば、種別にFalseを設定
SetUMSVariable $種別$, "False"
End If
Else
Err.Raise 1, "", "フォルダもしくはインデックスの指定に誤りがあります。"
End If
Set objItem = Nothing
ーーー<ここまで>ーーー