VB如何在多个文件夹中创建文本？ - 编程论坛

#2

apull2021-12-14 00:32

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

程序代码：

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

#3

吉飞2021-12-14 11:54

@ apull 需要加什么控件吗

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

#4

apull2021-12-14 14:23

回复 3楼吉飞

不需要。

#5

jingfang_4342022-04-03 21:14

回复 2楼 apull

忘记说谢谢了！！！

#6

yuma2022-04-03 21:24

建议用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