總覺得你在一次循環(huán)里Add了兩次,怪怪的。你所謂的“第二個”其實還是第一個,只是因為它只顯示擴展名而已。獲取的文件名已經(jīng)包含擴展名了,不需要再處理,所以刪去第二個Add。如果你有特殊需要的話,不妨寫出來,或者把整段代碼弄過來

為鄉(xiāng)寧等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計制作服務(wù),及鄉(xiāng)寧網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為做網(wǎng)站、網(wǎng)站設(shè)計、鄉(xiāng)寧網(wǎng)站設(shè)計,以傳統(tǒng)方式定制建設(shè)網(wǎng)站,并提供域名空間備案等一條龍服務(wù),秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達到每一位用戶的要求,就會得到認可,從而選擇與我們長期合作。這樣,我們也可以走得更遠!
———(手機不能追答只能修改)———
你的等于號在用于對象時,不是賦值,而是引用的意思。dirs=fis后,fis變成什么,dirs也會跟著變成什么,因為這時的dirs就是fis的引用(也就是帽子啦),而不是一個真正的對象副本。
dim a as string = replace(trim(textbox1.text),"TMD","") 'a 是過濾后的字符串,沒有"TMD",
還有:if textbox1.text.indexOf("TMD") -1 then exit sub
就這個之類的
*.* 所有類型所有文件
| 回車上面 】的右邊 、這個鍵按住shift
一個|的左右兩邊為一組 左邊代表要顯示給用戶看的提示文本 右邊代表具體要過濾的文件類型
這個恐怕有點難度,比如用戶輸入text.txt,你可能認為text.txt不允許輸,但是說不定用戶有文件名字命名為text.txt.exe的可執(zhí)行文件存在,所以要過濾擴展名靠判斷.號意義不大
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As String = "c:\windows\system"
For Each ws In My.Computer.FileSystem.GetFiles(a)
Dim kzm As String = ws.Substring(InStrRev(ws, "."), ws.Length - InStrRev(ws, ".")) '定義擴展名變量
If kzm = "mp4" Or kzm = "avi" Or kzm = "flv" Then '這里一定要注意擴展名的大小寫,如aviAVI的
Me.ListBox1.Items.Add(ws)
End If
Next
End Sub
新聞標題:包含vb.net文件名過濾的詞條
轉(zhuǎn)載注明:http://chinadenli.net/article5/dsipjoi.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供靜態(tài)網(wǎng)站、服務(wù)器托管、網(wǎng)站營銷、手機網(wǎng)站建設(shè)、網(wǎng)站策劃、虛擬主機
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)