摘要: 如何在ArtcPad的应用中创建一个目录? 内容: Sub CreateATextFileInANewCreatedDirectory
Dim objTxtFile
Set objTxtFile = Application.CreateAppObject("file")
Dim strDirPath
strDirPath = "C:datafile"
objTxtFile.createDirectory(strDirPath)
objTxtFile.Open strDirPath + "Text.txt",2, -1
objTxtFile.WriteLine("Write sth down!")
objTxtFile.Close
End Sub
1 个回复
EsriSupport
赞同来自:
内容: Sub CreateATextFileInANewCreatedDirectory
Dim objTxtFile
Set objTxtFile = Application.CreateAppObject("file")
Dim strDirPath
strDirPath = "C:datafile"
objTxtFile.createDirectory(strDirPath)
objTxtFile.Open strDirPath + "Text.txt",2, -1
objTxtFile.WriteLine("Write sth down!")
objTxtFile.Close
End Sub
创建时间:2005-12-12
最近更新:2005-12-12
【原文链接】
http://support.esrichina.com.cn/2005/1212/152.html
要回复问题请先登录或注册