コントロール配列かどうかを判別
Private Sub Form_Load() Dim ctl As Contr...
FileSystemObjectフォルダ再帰検索
Option Explicit Private Sub Command1_Click() Dim fs As Object, fld As Object Set fs = CreateObject("Scripting.FileSystemObject") Set fld = fs.GetFolder("C:\TEMP") DispFolders fld Set fld = Nothing Set fs = Nothing End Sub Private Sub DispFolders(oFolder As Object) Dim oSubFolder As...
