Justin.Lu----Position
  IT博客 :: 首页 :: 新随笔 :: 联系 :: 聚合  :: 管理 ::
  4 随笔 :: 6 文章 :: 3 评论 :: 0 Trackbacks
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 阅读(315) 评论(0)  编辑 收藏 引用
只有注册用户登录后才能发表评论。