Board logo

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

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

我需要用vbs脚本创建100个文件,而这100个文件,我希望能按特定的名字命名,比如说:
  1. For i = 1 To 100
  2.     If fso.FileExists("C:\OFD_???_90_20120424_01.txt") Then  
  3.        fso.DeleteFile("C:\OFD_???_90_20120424_01.txt")
  4.     end If
  5. Next
复制代码
就是我想要以上代码中的???变成001、002、003....100,通过i来循环获得,想请教这个该怎么写?谢谢……
作者: more    时间: 2012-5-15 13:31

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




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2