create Txt and zip

jason9657

于 2013-04-19 11:11:15 发布

阅读量160

点赞数

CC 4.0 BY-SA版权

分类专栏： vbscript 文章标签： shell

本文链接：https://blog.youkuaiyun.com/jason9657/article/details/84420818

vbscript 专栏收录该内容

1 篇文章

订阅专栏

本文介绍如何使用VBScript创建包含序列号的文本文件，并对其进行压缩操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >


call createTxtfileWithSeq()
call zipFile("D:\TestData\MPCI\80\vbs")

Function createTxtfileWithSeq()
set fso=createobject("Scripting.filesystemobject")
for i=0 to 3
	for j=0 to 9
		if i=0 and j=0 then
			j=j+1
			end if 
		if i=3 and  j=2 then 
			exit for
			exit for
			end if 
		set myfile=fso.createtextfile("D:\TestData\MPCI\80\vbs\ycap_ls_201303"&i&j&".txt",True)
	next
next
myfile.close
end function

Function zipFile(path)
dim objfolder
dim folderpath
dim folderinfo
folderpath=path
set objfolder=createobject("scripting.filesystemobject")
set folderinfo=objfolder.getfolder(folderpath)
set ffiles=folderinfo.files
for each f1 in ffiles
	set oExec = createobject("wscript.shell").exec("7z a -tgzip "&folderpath&"\"&f1.name&".gz "&folderpath&"\"&f1.name)
	'msgbox folderpath&"\"&f1.name
next
end function