其他分享
首页 > 其他分享> > 功能

功能

作者:互联网

'功能    :保存指定内容到指定路径下的文件(如果路径不存在则创建该路径,包括上级目录)

'输入参数: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)

附件列表

 

标签:功能,String,文件名,路径,saveFileName,cSet,savePath
来源: https://www.cnblogs.com/etITgo/p/14323382.html