Question

按键精灵怎么后台删除，桌面新建文件夹里的第一个文档？

Answer 1

你好。代码在这里,如果路径不对就自己修改一下
//1.获取桌面路径
VBSBegin
Set bag = GetObject("winmgmts:\\.\root\cimv2")
Set coc = bag.ExecQuery("Select * from Win32_ComputerSystem")
For Each objcomputer in coc
a=objcomputer.username
next
VBSEnd
b = split(a, "\")
c = b(UBound(b))
ml = "C:\Users\" & c & "\Desktop\新建文件夹\"
//2.遍历指定目录下所有文件名
wj = Lib.文件.遍历指定目录下所有文件名("C:\Users\" & c & "\Desktop\新建文件夹\")
//3.判断是否为文本文档，如果是就删除。然后结束脚本
For i = 0 To UBound(wj) - 1
wjm = split(wj(i), ".")
If wjm(UBound(wjm)) = "txt" Then
Call Plugin.File.DeleteFile("C:\Users\" & c & "\Desktop\新建文件夹\" & wj(0))
TracePrint "已删除"&"C:\Users\" & c & "\Desktop\新建文件夹\"&wj(i)
EndScript

Else
End If
Next