查看: 113  |  回复: 0
VB6 得到文件路径strPath和文件名strFN
楼主
发表于 4月10日 23:26

新建From1(窗体),新建Command1(按钮CommandButton),代码:

Private Sub Command1_click()
    Dim strAll As String
    Dim strArr() As String
    Dim strPath As String
    Dim strFN As String
    
    Dim i As Integer

    strAll = "C:\Windows\System\system.dll"
    strArr = Split(strAll, "\")
    strFN = strArr(UBound(strArr))
    
    strPath = Left(strAll, Len(strAll) - Len(strFN))
    
    Debug.Print strPath
    Debug.Print strFN
End Sub


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com