Question

vbs脚本读取当前文件夹下所有.c文件，并复制到一个新的.c

我就是想通过脚本读取当前目录下所有的.c文件，并且复制每个.c文件中的内容整合到一个新建在当前目录的.c，可以命名为project.c
急求！
求大神给代码，高分送上

Answer 1

Dim fso
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
path=fso.GetParentFolderName( WScript.ScriptFullName)
Set fld= fso.GetFolder(path)
Dim file
Dim Text
For Each file In fld.Files
    If LCase(Right(file.Name,2))=".c" Then
        Text=Text &  file.OpenAsTextStream.ReadAll & vbCrLf
    End If
Next
Dim cFile
If fso.FolderExists(path & "\c") Then
    Set fld=fld.SubFolders.Item("c")
Else
    Set fld=fld.SubFolders.Add ("c")
End If
Set cFile=fld.CreateTextFile("project.c" )
cFile.Write text
cFile.Close

在放该脚本的文件夹里放几个.c文件试试，合并在.\c\project.c。