VB6.0判断C盘1.dll文件是否存在
不存在则创建一个1.dll
存在则不创建
这个代码怎么写!
第1个回答 2013-10-17
用DIR函数可判断文件是否存在MyFile = Dir("C:\1.dll") if myfile="" then'不存在else'存在end if
第2个回答 2013-10-17
dir("DLL路径")如果存在则返回DLL的名字,否则返回空
第3个回答 2013-10-17
最简单的利用DIR, If dir(fname)="" then CreateAfile(fname)endif 参考下。
函数原型:
object.CreateTextFile(filename])
示例:
Sub CreateAfile
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("这是一个测试。")
MyFile.Close
End Sub
函数原型:
object.CreateTextFile(filename])
示例:
Sub CreateAfile
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("这是一个测试。")
MyFile.Close
End Sub