开始学习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"
复制代码
|