Question

VB创建文件夹问题！！！急

用VB实现以下功能：
如果 C:\Program Files\1 文件夹不存在，就在C:\Program Files目录下创建“1”文件夹；如果 C:\Program Files\1 文件夹存在，就在 C:\Program Files\1 目录下写出 “1.txt”文件。
请VB高手帮帮忙，给出具体代码！！谢！
急急急急急急急急急急急急急急急急急急急急急！！！！！！！

Answer 1

'函数名：CheckDir
'作 用：判断目录是否存在
'参 数：ckDirname ---- 目录名（包括路径）
'返回值：目录存在返回True,否则False
'**************************************************
Public Function CheckDir(ByVal ckDirname)
Dim M_fso
CheckDir=False
Set M_fso = CreateObject("Scripting.FileSystemObject")
If (M_fso.FolderExists(ckDirname)) Then
CheckDir=True
End If
Set M_fso = Nothing
End Function

Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
if CheckDir("C:\Program Files\1") then
'定义文本文件路径

path = "C:\Program Files\1\test.txt"

'定义读写文本文件的方式，只读、写入、追加三种。追加是指不删除文件中原有内容，而新的信息附加在文本文件原有内容之后。而写入就是将文本文件的内容直接换成新的信息。
ForReading = 1 //ASP读文件参数

ForWriting = 2 //ASP写文件参数

ForAppending = 3 //ASP附加文件参数
' 打开一个文本文件，第三个参数TRUE表示如果指定的文件不存在，则ASP会创建一个新的文件
set file = MyFileObject.opentextfile(path, ForAppending, TRUE)

'将信息写入文本文件

file.write("这里是写入文本文件的内容") & vbcrlf

'关闭文件对象和关闭FSO对象

file.close: set file = nothing

else
'创建文件夹
MyFileObject.CreateFolder " C:\Program Files\1"
end if

set MyFileObject= nothing