以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于文件拷贝!  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84231)

--  作者:大红袍
--  发布时间:2016/4/26 14:26:00
--  
Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    FileSys.CopyFile(dlg.FileName, "d:\\" & FileSys.GetName(dlg.FileName), True)
End If