'功能 :保存指定内容到指定路径下的文件(如果路径不存在则创建该路径,包括上级目录)
'输入参数: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)
附件列表