以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于复制文件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105854)

--  作者:做自己
--  发布时间:2017/8/28 9:19:00
--  关于复制文件
复制文件老是提示正在使用中
--  作者:做自己
--  发布时间:2017/8/28 9:20:00
--  
代码是这个样子的
str = str &".xlsx"
    Dim App As New MSExcel.Application
    \'App.Visible = True
    Dim Wb As MSExcel.Workbook = App.WorkBooks.Add
    Wb.WorkSheets(1).name = str
    strLuJing="d:\\Download1\\"&str
    Wb.SaveAs(strLuJing)
    App.Quit
    strLuJingJian ="d:\\Download\\"&str
    If FileSys.FileExists(strLuJing) Then
        FileSys.MoveFile(strLuJing,strLuJingJian)
    End If
此主题相关图片如下:1.png
按此在新窗口浏览图片

--  作者:有点甜
--  发布时间:2017/8/28 9:35:00
--  
Dim str As String = "abc.xlsx"
Dim App As New MSExcel.Application
app.DisplayAlerts = False
Dim Wb As MSExcel.Workbook = App.WorkBooks.Add
Wb.WorkSheets(1).name = str
Dim strLuJing="d:\\Download1\\" & str
Wb.SaveAs(strLuJing)
App.Quit
Dim strLuJingJian ="d:\\Download\\" & str
If FileSys.FileExists(strLuJing) Then
    system.Threading.Thread.sleep(1000)
    If FileSys.FileExists(strLujingjian) Then FileSys.DeleteFile(strLuJingJian, 2, 2)
    FileSys.MoveFile(strLuJing,strLuJingJian)
End If

--  作者:做自己
--  发布时间:2017/8/28 10:01:00
--  
提示问题呢
图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

--  作者:做自己
--  发布时间:2017/8/28 10:03:00
--  
好了好了,谢谢老师