VBA比较常用共通方法（一）写文本文件续

最新推荐文章于 2020-10-06 08:43:59 发布

原创最新推荐文章于 2020-10-06 08:43:59 发布 · 554 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vba #string #function #integer #kill

VBA 同时被 2 个专栏收录

6 篇文章

订阅专栏

写文本文件

2 篇文章

订阅专栏

本文介绍了一个使用VB.NET创建目录的函数，该函数通过检查路径并递归地创建所有必要的子目录来实现目录创建。

Public Function NewDir(ByVal strPath) As Boolean

    Dim dirAttr As VbFileAttribute

    dirAttr = vbNormal + vbDirectory + vbReadOnly
    If Dir(strPath, dirAttr) <> "" Then
        NewDir = True
        Exit Function
    End If

    Dim Pos As Long
    Dim strTemp As String

    On Error Resume Next
    Pos = InStr(1, strPath, "\")
    While Pos > 0
        strTemp = Left(strPath, Pos - 1)
        If Dir(strTemp, dirAttr) = "" Then MkDir strTemp
        Pos = InStr(Pos + 1, strPath, "\")
    Wend

    MkDir strPath

    NewDir = (Dir(strPath, dirAttr) <> "")
    If Err <> 0 Then Err.Clear

End Function

Public Sub SysErr(ByVal s As String)
    If IsAutoRun Then Exit Sub
    LimitMsgBoxText s
    MsgBox s, vbCritical, "错误提示"
End Sub

Private Sub LimitMsgBoxText(s As String)
    Const nMaxLen As Integer = 250
    If Len(s) > nMaxLen Then s = Left(s, nMaxLen) & "..."
End Sub

Public Sub KillFile(strFile As String)

    If Dir(strFile, vbHidden + vbNormal + vbReadOnly) <> "" Then
        SetAttr strFile, vbNormal
        Kill strFile
    End If

End Sub