如何创建一目录，并在该目录下创建一文件？

Question

function CreateDIR(byval LocalPath) '建立目录的程序，如果有多级目录，则一级一级的创建
on error resume next
LocalPath = replace(LocalPath,"\","/")
set FileObject = server.createobject("Scripting.FileSystemObject")
patharr = split(LocalPath,"/")
path_level = ubound(patharr)
for i = 0 to path_level
if i=0 then pathtmp=patharr(0) & "/" else pathtmp = pathtmp & patharr(i) & "/"
cpath = left(pathtmp,len(pathtmp)-1)
if not FileObject.FolderExists(cpath) then FileObject.CreateFolder cpath
next
set FileObject = nothing
if err.number<>0 then
CreateDIR = false
err.Clear
else
CreateDIR = true
end if
end function

Answer 1

点鼠标右键,"新建"-->"文件夹", 取名为"第一个目录".
双击"第一个目录", 点鼠标右键,"新建"-->"文件夹", 取名为"第二个目录".大功告成...哈哈!!

Answer 2

$path="temp_dir";//與頁面程序在同一目錄  or $path="c:/temp_dir" 
$file_name="temp_file.txt";
@mkdir("$path", 0777);
$handle = fopen("$path/$file_name","w");
fclose($handle);