建立目录问题！！！！

Question

请问如何用VB写建立一个目录并把该目录设置为隐藏啊？？

Answer 1

在工程中引用Microsoft Scripting RuntimePrivate Sub Command1_Click()
Dim fsoTest As New FileSystemObjectfsoTest.CreateFolder ("f:\aaa")
SetAttr "f:\aaa", vbHiddenMsgBox "完成!"
End Sub

Answer 2

菜单-工程-引用 "Microsoft Scripting Runtime"
Private Sub Command1_Click()
Dim fs As New FileSystemObjectfs.CreateFolder ("d:\文档")
SetAttr "d:\文档", vbHiddenMsgBox "创建成功!"
End Sub

Answer 3

Dim uuFso, uuDir
    Set uuFso = CreateObject("Scripting.FileSystemObject")
    Set uuDir = uuFso.createfolder("E:\н¨Îļþ¼Ð")
    uuDir.Attributes = vbHidden

Answer 4

Dim uuFso, uuDir
    Set uuFso = CreateObject("Scripting.FileSystemObject")
    Set uuDir = uuFso.createfolder("E:\新建文件夹")
    uuDir.Attributes = vbHidden

Answer 5

Private Sub Command1_Click()
    MkDir "c:\test"
    SetAttr "c:\test", vbHidden
End Sub

Answer 6

Private Sub Command1_Click()
    Dim FolderName As String
    FolderName="c:\test"
    If Dir(FolderNmae,vbDirectory)<>"" Then
        MsgBox "已存在文件夹：" & FolderName
    Else
        MkDir FolderName
        SetAttr FolderNmae , vbHidden
        MsgBox "文件夹 " & FolderNmae & " 创建成功！"
    End If
End Sub

Answer 7

Dim FolderName As String
    FolderName = "c:\test"
    If Dir(FolderName, vbDirectory) <> "" Then
        MsgBox "已存在文件夹：" & FolderName
    Else
        MkDir FolderName
        SetAttr FolderName, vbHidden
        MsgBox "文件夹 " & FolderName & " 创建成功！"
    End If
Dim uuFso, uuDir
    Set uuFso = CreateObject("Scripting.FileSystemObject")
    Set uuDir = uuFso.createfolder("E:\新建文件夹")
    uuDir.Attributes = vbHidden
这两种方法都可以。

Answer 8

MkDir 语句创建一个新的目录或文件夹。语法MkDir path必要的 path 参数是用来指定所要创建的目录或文件夹的字符串表达式。path 可以包含驱动器。如果没有指定驱动器，则 MkDir 会在当前驱动器上创建新的目录或文件夹。

Answer 9

SetAttr 语句为一个文件设置属性信息。语法SetAttr pathname, attributesSetAttr 语句的语法含有以下这些命名参数：部分 描述
   
pathname 必要参数。用来指定一个文件名的字符串表达式，可能包含目录或文件夹、以及驱动器。
Attributes 必要参数。常数或数值表达式，其总和用来表示文件的属性。
设置值attributes 参数设置可为：常数 值 描述
vbNormal 0 常规（缺省值）
vbReadOnly 1 只读
vbHidden 2 隐藏
vbSystem 4 系统文件
vbArchive 32 上次备份以后，文件已经改变
注意   这些常数是由 VBA 所指定的，在程序代码中的任何位置，可以使用这些常数来替换真正的数值。说明如果想要给一个已打开的文件设置属性，则会产生运行时错误。

Answer 10

用以上两个函数就可以实现你的要求，我的网站上有学习源码，你可以 看看。＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
免费的学习交流网站，欢迎大家访问！
http://www.j2soft.cn/