FileSystemObjectを使用してファイルを開こうとしていますが、実行しようとしてもシステムは何もしません。表示されませんデバッグ、ランタイムエラーなし、コンパイルされません。それはそのままです。 参考文献の「MS Scripting Runtime」もチェックしました。 以下は、私はこのために使用したコードです： Sub fsoobject()
Dim fso As New FileS
次のコードは、特定のフォルダパス内のすべてのフォルダを取得します。 Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("LOCATION")
With Worksheets("Sheet1")
i = 1
For Each objSubFolder In o
返しますm_sFolderは「C：\ Users \ユーザーMyUserと\ドキュメント」のとき Dim fo As Scripting.Folder
Set fo = fso.GetFolder(m_sFolder)
Dim nSubfolder As Scripting.Folder
For Each nSubfolder In fo.SubFolders
Debug.P
： var a = " ";
var b = "";
b = a * 8;
alert(b +"this far to the right");
注：私は、ActiveX FSOはへの書き込みに使用されますので、& NBSPを使用したくありませんHTMLファイルではないテキストファイル。だから、スペースのみにする必要がある：私は達成しようとしているものの は、より徹底したディテール： 私
この行のメモリに格納されているシステムの量（For Each objFile in objFolder.Files）と、objFile.Files.Countのようなものを使用して反復処理する方がより効果的かどうかはわかりません。次のコードを使用するとパフォーマンス上の問題が発生するかどうかは誰にも分かりますか？ Dim objFSO
Set objFSO = Server.CreateObje
「要件」のようなフォルダをフォルダから検索する手順を以下に示します。ステップスルーを開始すると、「ユーザー定義型が定義されていません」というエラーメッセージが表示されます。 私には何が欠けていますか？ Sub GetSubFolders()
Dim fso As New FileSystemObject, f As Folder, sf As Folder, myFile As File
S