有多个文件夹，我想在每个文件夹中创建一个文本，文本的内容就是文本所在文件夹的路径，请问该如何写代码？谢谢

下面这个是获取程序所在目录的子目录，并在子目录中创建文件。

Private Sub Command1_Click()
    Path = App.Path
    Dim fso As FileSystemObject
    Dim fld As Folder
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fld = fso.GetFolder(Path)
    
    If fld.SubFolders.Count > 0 Then
        For Each f In fld.SubFolders
            sFile = f & "\t.txt"
            Open sFile For Output As #1
            Print #1, f
            Close #1
            DoEvents
        Next
        MsgBox ("OK")
    Else
        MsgBox ("该文件夹没有子目录")
    End If
    
End Sub

@ apull 需要加什么控件吗

[此贴子已经被作者于2021-12-14 11:55编辑过]

不需要。

忘记说谢谢了！！！

建议用cmd命令来做，或者VB直接调用。

创建10000个文件夹
for /l %i in (1,1,10000) do md %i

创建10000个文件
for /l %i in (1,1,10000) do echo 这里是文件内容>>%i.txt