VB程序中如何添加一个文件夹? （注意：是文件夹，不是文件！）

Question

VB程序中如何添加一个文件夹? （注意：是文件夹，不是文件！）

Answer 1

是在IDE中还是在打包时?
如果是在IDE中,我也想知道.
:)

Answer 2

两种方法：
Private Declare Function CreateDirectory& Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpNewDirectory As String, lpSecurityAttributes As SECURITY_ATTRIBUTES)
Private Type SECURITY_ATTRIBUTES
        nLength As Long
        bInheritHandle As Long
        lpSecurityDescriptor As Long
End Type
Private Sub Command1_Click()'第一种
   Dim my As SECURITY_ATTRIBUTES
   CreateDirectory "d:\my", my
End SubPrivate Sub Command2_Click()'第二种
  MkDir "d:\my"
End Sub

Answer 3

Dim WjFileSys As FileSystemObjectPrivate Sub Command2_Click()
If Not WjFileSys.FolderExists("c:\myh") Then
   WjFileSys.CreateFolder "c:\myh"
End If
End SubPrivate Sub Form_Load()
   Set WjFileSys = CreateObject("Scripting.FileSystemObject")
End Sub

Answer 4

'引用：microsoft scripting Runtime

Answer 5

IDE中添加不了的，只能自动添加
比如原来没有类模块，现在添加类模块，就会自动添加一个"类模块"文件夹

Answer 6

楼主问的问题好像有些奇意，1。如在VB的开发环境下，建立一个新的类似FORMS、MODULES的文件夹，是不行的。只能在你填加文件后自动生成。2。如在程序里，建立一个FOLDER在DISK上，
那么参考：
dim fs As New Scripting.FileSystemObject       If fs.FolderExists("XXXX")= False Then
         fs.CreateFolder ("XXXX")
       End If"XXXX"   is your folder path
add reference :microsoft scripting Runtime

Answer 7

s="c:\dos"
If Dir$(s, vbDirectory) = "" Then MkDir s

Answer 8

要么是我误解了楼主，要么就是你们误解楼主的意思了。楼主上不是想跟VB.NET一样，将工程中的窗体，模块，类用 文件夹来分类？
如果是这样的话。。嘻嘻

Answer 9

回复人： iversonsnake(蛇) ( ) 信誉：100  2005-03-09 16:32:00  得分: 0  
 
 
   我的意思是在硬盘上新建一个文件夹，
还有，是怎样给分的啊？
  
 
’===============
KAO。。原来是这样，看来俺又误解了。。