这段代码的问题是:
首先for each循环在files里查找文件对象,但是f变量声明为string了,无法让它获取对象;
然后file.copy的变量file没有任何声明,也没有初始化赋值等;
添加一个OpenFileDialog控件.
代码如下:OpenFileDialog1.ShowDialog()'打开文件选择框OpenFileDialog1.FileName'得到选择的文件
Visual Basic.NET是基于微软.NET Framework之上的面向对象的编程语言.
其在调试时是以解释型语言方式运作,而输出为EXE程序是是以编译型语言方式运作.
可以看作是Visual Basic在.Net Framework平台上的升级版本,增强了对面向对象的支持.大多的VB.Net程序员使用Visual Studio .Net作为IDE(integrated development environment).SharpDevelop是另一种可用的开源的IDE.
vb.net使用控件FolderBrowserDialog1,在程序中:
'设置对话框中在树视图控件上显示的说明文本
Me.FolderBrowserDialog1.Description
=
"请选择输出报表所在路径:"
'设置从其开始浏览的根文件夹
Me.FolderBrowserDialog1.SelectedPath
"c:\"
If
Me.FolderBrowserDialog1.ShowDialog()
DialogResult.OK
Then
'取得全路径(包含文件名)
reportPath1
System.IO.Path.GetFullPath(Me.FolderBrowserDialog1.SelectedPath)
'设定text显示文件名
txtReport1.Text
setReportList()
End
在setReportList()中针对你所需要的文件进行操作等
vb.net查看文件夹权限方法:
①.、右键单击获取权限的文件夹,转到安全Tab.
Private Sub btnRemovePath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemovePath.Click
Try
' 先建立目录以便用于后续的删除示范.
If Not Directory.Exists("D:\网易") Then
Directory.CreateDirectory(" D:\网易 \Test1")
End If
' 删除子目录 Test1.
Directory.Delete(" D:\网易 \Test1", True)
myDirectoryInfo.Delete(True)
' 将目录 C:\AlexDirDemo 及其以下的文件和子目录全数删除.
Directory.Delete(" D:\网易 ", True)
Catch ex As Exception
MessageBox.Show(ex.Message)
Exit Sub
End Try
' 启动 Windows 资源管理器.
Process.Start("explorer.exe", "D:\")
End Sub
用Directory.CreateDirectory即可创建文件夹:
'?建立目录
If?Not?Directory.Exists("C:\负屃\"?TextBox1.Text)?Then?'检查文件夹是否存在
Directory.CreateDirectory("C:\负屃\"?TextBox1.Text)?'不存在,创建文件建夹
End?If
你的例子是因为少了一个"\"引起的,正确的如下:
Dim?fsotest?As?New?FileSystemObject
If?fsotest.FileExists("C:\负屃\"?TextBox1.Text)?=?False?Then
fsotest.CreateFolder("C:\负屃\"?TextBox1.Text) '这里你少了一个\
MsgBox("创建成功")
以上就是土嘎嘎小编为大家整理的文件夹类vb.net相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!