批处理之家 - Powered by Discuz! Board

标题: [问题求助] vbs脚本创建特定的命名文件 [打印本页]

作者: Szxing 时间: 2012-5-13 16:21 标题: vbs脚本创建特定的命名文件

我需要用vbs脚本创建100个文件，而这100个文件，我希望能按特定的名字命名，比如说：

For i = 1 To 100
    If fso.FileExists("C:\OFD_???_90_20120424_01.txt") Then  
       fso.DeleteFile("C:\OFD_???_90_20120424_01.txt")
    end If
Next
复制代码

就是我想要以上代码中的???变成001、002、003....100，通过i来循环获得，想请教这个该怎么写？谢谢……

作者: more 时间: 2012-5-15 13:31

Option Explicit

Dim i, objFso, strPath
Set objFso = CreateObject("Scripting.FileSystemObject")
With WScript
	strPath = Left(.ScriptFullName, InStrRev(.ScriptFullName, "\", -1, vbTextCompare))
End With
For i = 1 To 10
	objFso.CreateTextFile strPath & FormatNum(i) & ".txt", True
Next
Set objFso = Nothing

Function FormatNum(intNum)
	FormatNum = String(3 - Len(intnum), "0") & intnum
End Function
复制代码

自己改改吧...

欢迎光临批处理之家 (http://bbs.bathome.net/)