- A+
所属分类:vb.net
vb.net里面往往路径最后面需要添加一个斜杠,或者最后结尾不需要出现斜杠,那怎么删除了
添加一个斜杠代码,添加之前肯定是要判断现在是否有!
RichTextBox1.Text这个是控件里面显示的合法路径
If RichTextBox1.Text <> "" Then
' 检查目录是否以目录分割字符\结束,如果不是则添加之
If RichTextBox1.Text(RichTextBox1.Text.Length - 1) <> Path.DirectorySeparatorChar Then
RichTextBox1.Text += Path.DirectorySeparatorChar
End If
End If
复制
删除路径结尾的斜杠,判断我就不写了直接复制上面的
Dim Dirr As String
Dirr = RichTextBox1.Text.Remove(RichTextBox1.Text.LastIndexOf("\"))
复制