安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

VBA使用FileSystemObject复制或移动文件

2017-08-08 16:50:00
zstmtony
原创
906

以下VBA代码 使用FileSystemObject复制或移动文件,适用于access excel等VBA环境



Public Sub Move_File()
    Dim strSource As Variant
    Dim strDestination As String
    Dim objFS As Object
    
    strSource = "C:\Temp_C\Test.txt"  '源路径
    strDestination = "C:\Temp_Test\Test.txt"  '目标路径
    Set objFS = CreateObject("Scripting.FileSystemObject")  '创建FileSystemObject fso对象
    With objFS
        If .FileExists(strDestination) Then
            .DeleteFile (strDestination)   ‘如果目标文件存在,先?#22659;?#30446;标文件
        End If
        .MoveFile strSource, strDestination   '移动文件
    End With
    Set objFS = Nothing
End Sub
分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:18
内存占用:7.75MB
PHP 执行时间:0.18
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
凯恩地狱投注 欢乐球吃球外挂 庆南FcVs鹿岛鹿角比赛 象棋大转轮官网 dionaldo虎爪刀之王 门兴格拉德巴赫队徽 轩辕传奇2等级封印表 火热KTV游戏 澳洲幸运10开奖记录查寻 女巫宝藏电子