0

フォルダ内の.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

ーーー<ここまで>ーーー

gorby5775 ステータスの変更
回答とコメントは、会員登録(無料)で閲覧できるようになります。