国产成人AV一区二区三区在线_国产成人精品无码免费看_国产成人无码无卡在线观看_国产精品成人A区在线观看_国产日韩精品欧美一区_国产亚洲精品自在久久蜜TV_久草热久草热线频97精品_久久久噜噜噜久久中文福利_久久婷婷五月综合色国产免费观看_日日狠狠久久偷偷色综合0,九一桃色在线观看,久久97精品久久久久久久不卡,国产成人精品亚洲精品

VB刪除文件夾中后綴是mp3文件

訪客2023-11-24 00:42:457

VB刪除文件夾中后綴是mp3文件

private sub form_load()

dim a

a=inputbox("請輸入哪個文件夾")

if a="" then

msgbox"請輸入,!(按照你的要求,輸入: [文件夾名]*.mp3即可)

else

kill a

msgbox"刪除成功,!"

end if

end sub

如果想要更便捷,,就使用下列代碼:

Private Sub form_load()

Dim a

a = InputBox("請輸入哪個文件夾") '不要加上述,,如要刪除c盤所有mp3格式文件,就輸入: c: (注意不要加,,要英文符號)

If a = "" Then

MsgBox "請輸入,!",48

Else

Kill a & "*.mp3"

End If

End Sub

文章評論