• <cite id="uwv89"></cite>
      1. 亚洲综合小综合中文字幕,国产久爱免费精品视频,精品国产品香蕉在线,国产午夜精品在人线播放,精品一二三四区在线观看,国产成人无码免费看视频软件 ,色欲久久人妻内射,午夜在线观看成人av
        工控軟件開發(fā)
        級別: 正式會員
        精華主題: 0
        發(fā)帖數(shù)量: 42 個
        工控威望: 89 點
        下載積分: 504 分
        在線時間: 4(小時)
        注冊時間: 2023-04-06
        最后登錄: 2024-06-04
        查看工控軟件開發(fā)的 主題 / 回貼
        樓主  發(fā)表于: 2024-06-04 22:42
        刪除文件夾和內(nèi)部文件2

        復制代碼
        1. Function DelFolder(Str As String) As Boolean
        2. Rem RMdir的升級版本,根據(jù)目錄地址刪除最后文件夾及里面的文件
        3. Rem 使用方法Call RMDirs("D:\test\test2\test3")
        4. Rem if RMDirs("D:\test\test2\test3")=True then doSomething  else doOtherSomething
        5.     Err.Clear
        6.     On Error GoTo ele
        7.     Dim fs, f
        8.     If Len(Str) = 0 Then Exit Function
        9.     Set fs = CreateObject("Scripting.FileSystemObject")
        10.     Set f = fs.GetFolder(Str)
        11.     f.Delete
        12.     DelFolder = True   '刪除多級目錄成功
        13.     Set fs = Nothing
        14.     Set f = Nothing
        15.     Exit Function
        16. ele:
        17.     DelFolder = False  '刪除多級目錄失敗
        18.     Set fs = Nothing
        19.     Set f = Nothing
        20.     'MsgBox Err.number & Err.Description
        21. End Function
        我的博客,你可以先看一下我的文章和以前幫別人解決的一些技術(shù)問題。
        專注VB編程開發(fā)20年的博客_CSDN博客-作品成品 開發(fā)的一些軟件,股票分析理財投資,自動編程 源碼庫領(lǐng)域博主

        https://blog.csdn.net/xiaoyao961

        主站蜘蛛池模板: 日本一高清二区视频久二区| 亚洲精品漫画一二三区| 国产在线亚州精品内射| 久久午夜无码鲁丝片直播午夜精品| 亚洲一区二区三区| 亚洲欧美不卡高清在线| 日韩精品二区三区四区| 最新中文乱码字字幕在线| 亚洲中文字幕精品第三区| 国产精品污一区二区三区| 在线看国产精品自拍内射| 亚洲成年轻人电影网站WWW| 插插无码视频大全不卡网站| av中文字幕在线二区| 亚洲国产成人午夜在线一区| 成人网站免费在线观看| 久久精品国产99久久6| 九九热精品视频免费在线| 亚洲av天堂天天天堂色| 丝袜美腿亚洲综合在线观看视频| 精品国产免费一区二区三区香蕉| 四虎国产精品永久在线下载| 国产av一区二区三区精品| 男人一天堂精品国产乱码| 性色在线视频精品| 欧美日韩在线亚洲二区综二| 久久中文字幕日韩无码视频| 亚洲欧美自偷自拍视频图片| 亚洲成av人无码免费观看| 亚洲国产成人无码AV在线影院L| 亚洲精品中文av在线| 少妇人妻偷人免费观看| 色吊丝二区三区中文字幕| 精品国产一区二区三区性色| 精品国产一区二区三区香| 男女啪啪高潮激烈免费版| 日韩福利片午夜免费观着| 久久精品夜色国产亚洲av| 丁香五月婷激情综合第九色| 亚洲日韩性欧美中文字幕| 国产精品高清中文字幕|