IT博客-Justin.Lu----Positionhttp://www.cnitblog.com/Justin/zh-cnWed, 29 Apr 2026 06:00:28 GMTWed, 29 Apr 2026 06:00:28 GMT60VB中根據app.path取得路徑 http://www.cnitblog.com/Justin/archive/2005/09/20/2798.htmlJustinJustinTue, 20 Sep 2005 12:03:00 GMThttp://www.cnitblog.com/Justin/archive/2005/09/20/2798.htmlhttp://www.cnitblog.com/Justin/comments/2798.htmlhttp://www.cnitblog.com/Justin/archive/2005/09/20/2798.html#Feedback2http://www.cnitblog.com/Justin/comments/commentRss/2798.htmlhttp://www.cnitblog.com/Justin/services/trackbacks/2798.html\\gcecn\copy\
取得的本機目錄時, 例如 f:\backup
注意：最後是否有"\"


Justin 2005-09-20 20:03 发表评论
]]>vb FileCreatehttp://www.cnitblog.com/Justin/archive/2005/08/19/2188.htmlJustinJustinFri, 19 Aug 2005 01:17:00 GMThttp://www.cnitblog.com/Justin/archive/2005/08/19/2188.htmlhttp://www.cnitblog.com/Justin/comments/2188.htmlhttp://www.cnitblog.com/Justin/archive/2005/08/19/2188.html#Feedback0http://www.cnitblog.com/Justin/comments/commentRss/2188.htmlhttp://www.cnitblog.com/Justin/services/trackbacks/2188.html 

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


Justin 2005-08-19 09:17 发表评论
]]>Java File Copyhttp://www.cnitblog.com/Justin/archive/2005/08/18/2184.htmlJustinJustinThu, 18 Aug 2005 12:57:00 GMThttp://www.cnitblog.com/Justin/archive/2005/08/18/2184.htmlhttp://www.cnitblog.com/Justin/comments/2184.htmlhttp://www.cnitblog.com/Justin/archive/2005/08/18/2184.html#Feedback6http://www.cnitblog.com/Justin/comments/commentRss/2184.htmlhttp://www.cnitblog.com/Justin/services/trackbacks/2184.htmlFile Copy

// Copies src file to dst file.
// If the dst file does not exist, it is created
void copy(File src, File dst) throws IOException
{
 InputStream in = new FileInputStream(src);
 OutputStream out = new FileOutputStream(dst);
 
 // Transfer bytes from in to out
 byte[] buf = new byte[1024];
 int len;
 while ((len = in.read(buf)) > 0)
 {
     out.write(buf, 0, len);
 }
 in.close();
 out.close();
}


Justin 2005-08-18 20:57 发表评论
]]>Java程序员的两个好网站 [转]http://www.cnitblog.com/Justin/archive/2005/08/18/2175.htmlJustinJustinThu, 18 Aug 2005 10:44:00 GMThttp://www.cnitblog.com/Justin/archive/2005/08/18/2175.htmlhttp://www.cnitblog.com/Justin/comments/2175.htmlhttp://www.cnitblog.com/Justin/archive/2005/08/18/2175.html#Feedback0http://www.cnitblog.com/Justin/comments/commentRss/2175.htmlhttp://www.cnitblog.com/Justin/services/trackbacks/2175.html
第一个是 ::URL::http://www.koders.com/  是一个源代码搜索引擎，可以查询Apache，Mozilla，Novell Forge和SourceForge等组织的源代码。目前，据称可以搜索1.98亿行源代码，并可按编程语言及应用协议的不同进行查询，其查询直接深入到源代码内部进行，对开发者比较有用

第二个是 ::URL::http://javaalmanac.com  Java开发者年鉴一书的在线版本. 要想快速查到某种Java技巧
的用法及示例代码, 这是一个不错的去处，我经常去参阅


Justin 2005-08-18 18:44 发表评论
]]>