Justin.Lu----Position
  IT博客 :: 首页 :: 新随笔 :: 联系 :: 聚合  :: 管理 ::
  4 随笔 :: 6 文章 :: 3 评论 :: 0 Trackbacks
<2005年8月>
日一二三四五六
31123456
78910111213
14151617181920
21222324252627
28293031123
45678910

常用链接

留言簿(3)

随笔档案

文章分类

Java

Open Source

搜索

最新评论

阅读排行榜

评论排行榜

vb FileCreate

 

sub CreateFile()
Dim fso As Scripting.FileSystemObject
Dim ts As TextStream
Dim FileName As String
Dim txtLine As String
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    FileName = App.Path & "鑽孔疊板數.txt"
    Set ts = fso.CreateTextFile(FileName)
    ts.writeLine ("ProductNo" & Chr(9) & "DRILL_E/P" & Chr(9) & _
                    "Drill E/P" & Chr(9) & "ins_date" & Chr(9) & _
                    "DRILL_E/P2" & Chr(9) & "Drill E/P2" & Chr(13))  
    ts.Close
end sub
posted on 2005-08-19 09:17 Justin 阅读(321) 评论(0)  编辑 收藏 引用
只有注册用户登录后才能发表评论。