0

VBScriptに詳しい方教えてください。

指定フォルダ内のcsvファイル数とxlsxファイル数をカウントするユーザライブラリを自作しています。下記はコードの一部です。

下記の太字の記述は合っていますでしょうか? それとも

If UCase(objFileSys.GetExtensionName(f.Path)) = "CSV" Then

  count = count + 1

 ElseIf UCase(objFileSys.GetExtensionName(f.Path)) = "XLSX" Then  

  count = count + 1

End If

と長く記述しなければなりませんか?

---<コード開始>---

'拡張子がCSVのファイルを数える
For Each f In objFolder.Files
If UCase(objFileSys.GetExtensionName(f.Path)) = "CSV Or XLSX" Then
count = count + 1
End If
Next

---<コード終了>---

Kouichi 回答した質問
回答とコメントは、会員登録(無料)で閲覧できるようになります。