十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
用Directory.CreateDirectory即可创建文件夹:
创新互联建站-专业网站定制、快速模板网站建设、高性价比喀喇沁网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式喀喇沁网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖喀喇沁地区。费用合理售后完善,十余年实体公司更值得信赖。
' 建立目录
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) '这里你少了一个\
End If
MsgBox("创建成功")
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim AppPath As String = Directory.GetCurrentDirectory() '获取应用程序的当前工作目录 Process.Start(AppPath) '打开当前目录 End Sub
我也找来的,只找到这个,希望对你有帮助。
Dim
dir
As
New
IO.DirectoryInfo("C:\TDDownload")
//
目录下就一个文件夹
If
dir.GetDirectories.Length
Then
MessageBox.Show(dir.GetDirectories.GetValue(0).ToString())
End
If
//
目录下多个文件夹
'For
Each
d
As
IO.DirectoryInfo
In
dir.GetDirectories
'
MessageBox.Show(d.FullName)
'Next
OpenFileDialog openFile = new OpenFileDialog();
openFile.Multiselect = true;
openFile.Filter = "图片 (*.jpg)|*.jpg|所有文件 (*.*)|*.*";
if (openFile.ShowDialog() == DialogResult.OK)
{
string ss = openFile.FileName;
string ww = openFile.FileName.Remove(openFile.FileName.Length - 4, 4);
File.Copy(ss, @"..\..\picture\" + Path.GetFileName(ss));
}
上面是先获取路径,在把图片复制到指定路径下。
System.Windows.Forms.OpenFileDialog
System.Windows.Forms.SaveFileDialog
System.Windows.Forms.FolderBrowserDialog
以上三个类均能够很好的解决楼主的需求。
具体的请lz自己查msdn
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 = reportPath1
setReportList()
End If
在setReportList()中针对你所需要的文件进行操作等