用兩個小數點表示,比如上級目錄的abc子目錄: ..\abc
為察隅等地區用戶提供了全套網頁設計制作服務,及察隅網站建設行業解決方案。主營業務為做網站、成都網站制作、察隅網站設計,以傳統方式定制建設網站,并提供域名空間備案等一條龍服務,秉承以專業、用心的態度為用戶提供真誠的服務。我們深信只要達到每一位用戶的要求,就會得到認可,從而選擇與我們長期合作。這樣,我們也可以走得更遠!
一個小數點則表示當前目錄,比如當前目錄的abc子目錄: .\abc ,當然也可以直接 abc
Public?Function?getParent(path?As?String)?As?String
If?Right(path,?2)?=?":\"?Then?'判讀是否已經是根目錄
getParent?=?""
Exit?Function
End?If
If?Right(path,?1)?=?"\"?Then?'去除最后一個\
path?=?Left(path,?Len(path)?-?1)
End?If
path?=?Left(path,?InStrRev(path,?"\")?-?1)?'取父目錄
If?Right(path,?1)?=?":"?Then
path?=?path?+?"\"
End?If
getParent?=?path
End?Function
給你一段我曾經寫的代碼,主要是生成TreeView的節點!有什么不懂的地方你就提!
Public Sub InitializeTreeView(ByVal strvXL As TreeView, ByVal vrsRecordTwo As DataSet)
Dim treBaseNodeOne As TreeNode
Dim treBaseNodeTwo As TreeNode
Dim strDWDM As String
m_rsRecordTwo = g_clsSybase.SelectSC_PD_SBCSB1()
'查找供電局信息
g_clsSybase.SelectRS_ZZJG_ZZJGDMB(m_rsRecordOne)
'添加根節點
Do While m_rsRecordOne.Read
strDWDM = m_rsRecordOne.GetString(0) '獲取單位代碼
treBaseNodeOne = New TreeNode
treBaseNodeOne.Text = m_rsRecordOne.GetString(1).Trim() '獲取單位名稱
treBaseNodeOne.Name = m_rsRecordOne.GetString(1)
treBaseNodeOne.Tag = ""
strvXL.Nodes.Add(treBaseNodeOne)
'添加樹結構第二層
Dim drsTwo() As DataRow
drsTwo = m_rsRecordTwo.Tables(0).Select("SSDW='" strDWDM "' and SC__XLBM is null")
For Each dr As DataRow In drsTwo
treBaseNodeTwo = New TreeNode
treBaseNodeTwo.Text = dr.Item("XLMC").ToString.Trim
treBaseNodeTwo.Name = dr.Item("XLMC")
treBaseNodeTwo.Tag = dr.Item("XLBM")
treBaseNodeOne.Nodes.Add(treBaseNodeTwo)
Next
Loop
m_rsRecordOne.Close()
End Sub
分享題目:關于vb.net上一層目錄的信息
地址分享:http://vcdvsql.cn/article32/hpgpsc.html
成都網站建設公司_創新互聯,為您提供App開發、網站維護、動態網站、、外貿建站、搜索引擎優化
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯