Question

vb 有自动建立文件夹功能吗

Answer 1

 

利用下面的言句生成文件夹：

    MkDir "文件夹路径"

在应用程序根目录下，生成Backup文件夹。在生成之前先判断该文件夹否存在。

源代码如下：

Dim BackupPath As String
    Select Case Right(App.Path,1) '判断路径是否包含'\'
       case '\':
            BackupPath = App.Path & "Backup"
       case Else
            BackupPath = App.Path & "\Backup"
    End Select
    If Dir(BackuPath,vbDirectory)="" Then '文件夹不存在
      MkDir BackuPath   '在应用程序根目下，创建文件夹Backup
    End If

Answer 2

用 mdir path 建立