apang

开始学习vbs，权当练习。。。

sFolder = "D:\A"  '源文件夹
tFolder = "D:\B"  '目标文件夹
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(tFolder) = False Then
  FSO.CreateFolder(tFolder) '目标文件夹不存在则创建
End if
For Each File in FSO.GetFolder(sFolder).Files
  If LCase(FSO.GetExtensionName(File)) = "asp" Then
  '判断是否为asp文件
    Set sFile = FSO.OpenTextFile(File,1)
    '打开源文件
    Str = ""
    Do Until sFile.AtEndOfStream
    '循环读取每一行
      rLine = sFile.ReadLine
      If Left(rLine,2) = "<%" Then Flag = "1"
      If Flag = "1" Then Str = Str & rLine & vbCrLf
      If Left(rLine,2) = "%>" Then Flag = ""
    Loop
    sFile.Close
    tName = FSO.GetFile(File).Name 
    FSO.CreateTextFile(tFolder&"\"&tName,2).Write Str
    '写入目标文件
  End If
Next
MsgBox "OK"
复制代码

sFolder = "D:\A"
tFolder = "D:\B"
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(tFolder) = False Then
  FSO.CreateFolder(tFolder)
End if
For Each File in FSO.GetFolder(sFolder).Files
  If LCase(FSO.GetExtensionName(File)) = "txt" Then
    Set sFile = FSO.OpenTextFile(File,1)
    sName = FSO.GetFile(File).Name
    Str = Mid(sName,1,Len(sName)-4)
    Str = Replace(sFile.ReadAll,"很漂亮","txt"&Str)
    sFile.Close 
    FSO.CreateTextFile(tFolder&"\"&sName,2).Write Str
  End If
Next
MsgBox "OK"
复制代码