vbs脚本创建特定的命名文件

Szxing

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

1. 
   
2. For i = 1 To 100
   
3.     If fso.FileExists("C:\OFD_???_90_20120424_01.txt") Then  
   
4.        fso.DeleteFile("C:\OFD_???_90_20120424_01.txt")
   
5.     end If
   
6. Next
   

复制代码

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

more

1. 
   
2. Option Explicit
   
3. 
   
4. Dim i, objFso, strPath
   
5. Set objFso = CreateObject("Scripting.FileSystemObject")
   
6. With WScript
   
7.         strPath = Left(.ScriptFullName, InStrRev(.ScriptFullName, "", -1, vbTextCompare))
   
8. End With
   
9. For i = 1 To 10
   
10.         objFso.CreateTextFile strPath & FormatNum(i) & ".txt", True
    
11. Next
    
12. Set objFso = Nothing
    
13. 
    
14. Function FormatNum(intNum)
    
15.         FormatNum = String(3 - Len(intnum), "0") & intnum
    
16. End Function
    

复制代码

自己改改吧...