查人人中国名人网常宁一中和二中哪个好:新手遇到简单VB编程问题,高手关照下!
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/19 11:39:39
If (目录文件名没有找到111.txt该文本文件) then
(编写自动在该目录新建文本文件111.txt)
End If
麻烦知道的大哥帮下小弟：（）括号里用VB代码怎么写。小弟菜鸟
希望哪位大哥肯加小弟QQ,小弟对编程有浓厚的兴趣,听说VB好入门,但很多地方还需要帮助,希望有热心的哥哥帮助我。QQ23524882 甚谢！
(编写自动在该目录新建文本文件111.txt)
End If
麻烦知道的大哥帮下小弟：（）括号里用VB代码怎么写。小弟菜鸟
希望哪位大哥肯加小弟QQ,小弟对编程有浓厚的兴趣,听说VB好入门,但很多地方还需要帮助,希望有热心的哥哥帮助我。QQ23524882 甚谢！
FreeFileNumber = FreeFile
On Error Resume Next
Open "111.txt" For Input As FreeFileNumber
Close FreeFileNumber
If Err Then
Open "111.txt" For Output As FreeFileNumber
Close FreeFileNumber
End
<%
'---------建立fso对象变量
Set fso = server.CreateObject("scripting.filesystemobject")
'---------获取虚拟目录名称
folderpath = server.mappath("路径")
'---------建立目录名称
If Not fso.folderexists(folderpath) Then
fso.createfolder(folderpath)
End If
%>
If Dir("c:\111.txt") = "" Then
Open "c:\111.txt" For Output As 1
Close
End If
Dir 函数
返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。
语法
Dir[(pathname[, attributes])]