如何创建目录？？？

Question

if dir("c:\test",vbdirectory)="" then
    mkdir "c:\test"
end ifif dir("c:\test\test",vbdirectory)="" then
    mkdir "c:\test\test"
end if这里没有装VB,你自已试一下吧

Answer 1

老胸
你应该以“\”为标志
将你的那个路径从左向有截取
判断那个目录是否存在
DIR（PATH）
 如过不存在则用FSO创建
知道把整个路径的目录曾建立完毕
这是一个方法供参考

Answer 2

Private Declare Function CreateDirectoryEx Lib "kernel32" Alias "CreateDirectoryExA" (ByVal lpTemplateDirectory As String, ByVal lpNewDirectory As String, lpSecurityAttributes As Any) As Long
Private Declare Function RemoveDirectory Lib "kernel32" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: [email protected]
    'Create a new directory
    CreateDirectoryEx "C:\Windows", "C:\KPD-Team", ByVal 0&
    'remove the directory
    RemoveDirectory "C:\KPD-Team"
End Sub

Answer 3

strPahtName = "C:\test\a\b\c"For i = 1 To UBound(Split(strPahtName, "\"))
    '写创建的代码
Next i