vba
大吉四海の牛摸王
这个作者很懒,什么都没留下…
展开
-
根据文件夹创建日期删除数据
Dim folder_name(2)Set fso=wscript.createobject("scripting.filesystemobject")folder_name(1)="C:\LocalRoot"folder_name(2)="C:\Vision\Send"For q=1 To 2 Set more_file=fso.GetFolder(folder_name(q)).Files For Each mf In more_file '删除 folder_name.原创 2021-07-29 18:27:30 · 432 阅读 · 0 评论 -
修改HASPLM文件内容
dim wshshell, cnameOn Error Resume Next'**************取得本机计算机名****************set wshshell=createobject("Wscript.shell")set EnvVar =wshshell.Environment("Process")cname=envvar.item("computername")'msgbox(cname)'**************取得本机计算机名**********.原创 2021-07-29 18:13:59 · 335 阅读 · 0 评论 -
根据文件夹创建日期删除数据.vbs
Dim folder_name(2)Set fso=wscript.createobject("scripting.filesystemobject")folder_name(1)="C:\LocalRoot"folder_name(2)="C:\Vision\Send"For q=1 To 2 Set more_file=fso.GetFolder(folder_name(q)).Files For Each mf In more_file '删除 folder_name.原创 2021-07-29 18:11:42 · 192 阅读 · 0 评论