标题: [问题求助] 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://bathome.net./) |
Powered by Discuz! 7.2 |