Dim hz1 As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\My Documents\下载\数据库和界面不一样\CS.mdb;Persist Security Info=False" Dim reg As new System.Text.RegularExpressions.Regex("(?<=Data Source=).+?(?=;)") Dim mc As object = reg.Matches(hz1) msgbox(FileSys.GetParentPath(mc(0).value))