PersonalCorpus 版 (精华区)

发信人: antidote (antidote), 信区: test
标  题: 从硬盘贴目录下所有文件vbs
发信站: 猪猪乐园 (2003年01月06日08:39:56 星期一), 站内信件

所有文件，以文本格式paste
发表文章题目为文件名，内容就是文件内容了

StartFolder = InputBox("老大，给个文件夹先:")

Set FSO = CreateObject("Scripting.FileSystemObject")
For Each File in FSO.GetFolder(StartFolder).Files
    PostFile(File)
    Next

RecursFolders(FSO.GetFolder(StartFolder))

Sub RecursFolders(Folder)
    For Each Subfolder in Folder.SubFolders
        For Each File in Subfolder.Files
        PostFile(File)
        Next
        RecursFolders Subfolder
    Next
End Sub
Sub PostFile(File)

    For Each Subfolder in Folder.SubFolders
    TitleStr=Mid(File.Name,1,Len(File.Name)-4)
    Set objTextFile=FSO.OpenTextFile(File.Path,1)
    ContentStr = objTextFile.ReadAll
    objTextFile.Close

    STermScript.SendData ("a")
    STermScript.SendData (TitleStr + Chr(13) )
    STermScript.SendData(ContentStr)
    STermScript.SendData (Chr(24)+Chr(13) )

End Sub










;