2023年7月14日发(作者：)

ASP写⼊⽂本⽂件的过程函数今天写程序的时候要反复⽤到写⼊⽂本⽂件,于是就写了⼀个过程函数,希望对⼤家有⽤.代码:Sub Write2File(strFile, strContent, blnAppend)' 写⼊⽂件' strFile ⽂件名(路径) , strContent 写⼊的内容, blnAppend 是否追加 On Error Resume Next Set objFSO = Object("stemObject") If blnAppend Then Set objWriteText = xtFile(strFile,8,True) Else Set objWriteText = xtFile(strFile,2,True) End If ine (strContent) Set objWriteText = Nothing Set objFSO = Nothing ' 容错处理 Select Case Err Case 424 "路径未找到或者该⽬录没有写⼊权限."' Case Else ption Case Else Err End SelectEnd Sub

调⽤⽅法:Write2File "c:", "dd", True或者Call Write2File ("c:", "dd", True)