' Display the names in C:\ that represent directories.
MyPath = "c:\" ' Set the path.
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry.
Do While MyName <> "" ' Start the loop.
' Use bitwise comparison to make sure MyName is a directory.
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
' Display entry only if it's a directory.
MsgBox(MyName)
End If
MyName = Dir() ' Get next entry.
Loop
私は上記のコードを見ています。私は特に "MyName = Dir()"が何をしているのか理解していません。それは次のエントリを取得するコメントですが、私はそれが次のエントリを取得する方法を理解していません - 特にDir()は何ですか?Dir()関数の理解
Dir()ではなくFileSystemObjectまたはFileDialogを使用することをお勧めします。 –
@ExcelDevelopersなぜですか? – james1395
'FileSystemObject'は、このようなタスクで* much *使いやすくなっています。上記のコードは基本的に次のようになります: 'For Each foo in CreateObject(" Scripting.FileSystemObject ")。GetFolder(" C:\ ")サブフォルダ:MsgBox(foo.Path):Next' – Comintern