'功能    ：保存指定内容到指定路径下的文件（如果路径不存在则创建该路径，包括上级目录）

'输入参数：saveScript  |String|保存的内容

'          savePath    |String|保存的路径

'          saveFileName|String|保存的文件名|如果该参数为""(空)，默认savePath中附加了文件名（正常应该在调用该参数时拆分传入）

'输出参数：无

'版本    ：V20210122.01|heyunfeng|创建

Function FileSave(saveScript As String, savePath As String, saveFileName As String)

 

    Dim fileSavePath As Variant '文件保存路径

    Dim cSet As String '文件写入时使用的字符集

   

    cSet = MyParameter.CHAR_SET

   

    If saveFileName = "" Then '传入的文件名为""(空)，默认savePath中附加了文件名

        FileIO.WriteToFile filePath:=CStr(savePath), strContent:=rs_script, charSet:=cSet

    Else

       

        'Dim PathRs

        'PathRs = Dir(savePath, vbDirectory)

        CreateFolders (savePath)

        FileIO.WriteToFile filePath:=CStr(savePath & "\" & saveFileName), strContent:=rs_script, charSet:=cSet

    End If

 

 

End Function

 

来自为知笔记(Wiz)

附件列表