Private Sub Form_click() Dim temp As String temp = "c:\window\system" Print Mid(temp, InStrRev(temp, "\") + 1, Len(temp) - InStrRev(temp, "\")) End Sub
转载于:https://www.cnblogs.com/dabaixiong/p/5553644.html
Private Sub Form_click() Dim temp As String temp = "c:\window\system" Print Mid(temp, InStrRev(temp, "\") + 1, Len(temp) - InStrRev(temp, "\")) End Sub
转载于:https://www.cnblogs.com/dabaixiong/p/5553644.html