Justin.Lu----Position
  IT博客 :: 首页 :: 新随笔 :: 联系 :: 聚合  :: 管理 ::
  4 随笔 :: 6 文章 :: 3 评论 :: 0 Trackbacks
<2025年4月>
日一二三四五六
303112345
6789101112
13141516171819
20212223242526
27282930123
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)  编辑 收藏 引用
只有注册用户登录后才能发表评论。