十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
总觉得你在一次循环里Add了两次,怪怪的。你所谓的“第二个”其实还是第一个,只是因为它只显示扩展名而已。获取的文件名已经包含扩展名了,不需要再处理,所以删去第二个Add。如果你有特殊需要的话,不妨写出来,或者把整段代码弄过来
为乡宁等地区用户提供了全套网页设计制作服务,及乡宁网站建设行业解决方案。主营业务为做网站、网站设计、乡宁网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!
———(手机不能追答只能修改)———
你的等于号在用于对象时,不是赋值,而是引用的意思。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的可执行文件存在,所以要过滤扩展名靠判断.号意义不大
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