vbscript用于同时创建许多文本文件 [英] vbscript for creating many text files simultaneously

查看:96
本文介绍了vbscript用于同时创建许多文本文件的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!

问题描述


请使用vbscript帮助我开发许多文本文件,其中应该包含一些文本,并且这些文本文件名应该是唯一的.即:GUID应该是文件名.

我已经开发了一个vbfile来创建单个文本文件

代码在这里...

Hi,
PLease help me in developing many text files which should contain some text in it using vbscript and those text file names should be unique. ie: GUID should be for file name.

I have developed a vbfile to create a single text file

The code goes here...

DIM fso, writeFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set writeFile = fso.CreateTextFile("E:\Revathi\VBScript\newtextfile.txt", True)
writeFile.Write(""Welcome to flexorbits".")
writeFile.Close

推荐答案

暗计数器AS BigInt
昏暗限制AS BigInt
DIM fso,writeFile
DIM file_Name作为字符串
限制= 1000
直到country<>限制
file_Name ="E:\ Revathi \ VBScript \ newtextfile"&柜台& ".txt"
设置fso = CreateObject("Scripting.FileSystemObject")
设置writeFile = fso.CreateTextFile(file_Name,True)
writeFile.Write(欢迎使用flexorbits.")
writeFile.Close
SET fso = NOTHING
counter = counter + 1
循环
Dim counter AS BigInt
Dim Limit AS BigInt
DIM fso, writeFile
DIM file_Name as String
Limit=1000
Do Until counter<>Limit
file_Name="E:\Revathi\VBScript\newtextfile" & counter & ".txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set writeFile = fso.CreateTextFile(file_Name, True)
writeFile.Write("Welcome to flexorbits.")
writeFile.Close
SET fso = NOTHING
counter=counter+1
Loop


这篇关于vbscript用于同时创建许多文本文件的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!

查看全文
登录 关闭
扫码关注1秒登录
发送“验证码”获取 | 15天全站免登陆