如何修改这个vbs代码能自动检测文本大小
发布网友
发布时间：2022-04-24 14:25
共3个回答
热心网友
时间：2023-10-16 07:53
我的思路是，先复制，如果大于1KB，删除
DOS批处理文件，保存为拓展名.bat
比如把他保存到D:\kk.bat
在你vbs脚本最后加上
set wshh=CreateObject("Wscript.shell")
wshh.run "D:\kk.bat",0
在我这里实验成功
::====================BEGIN==========================
@echo off&setlocal enabledelayedexpansion
set /a n=1
for /f "delims=" %%a in ( 'dir D:\88\1.txt' ) do (
set /a n=n+1
if !n! EQU 6 set b=%%a
)
set c=%b:~30,1%
if "%c%" ==" " del D:\88\1.txt
exit
::=======================END==============
热心网友
时间：2023-10-16 07:54
if CreateObject("Scripting.FileSystemObject").GetFile("d:\1.txt").size > 1024 then
这里放代码，上面文件名字自己写
end if
热心网友
时间：2023-10-16 07:54
你看下他大小不就成了。
用filelen函数。追问看1下不是自动，
