vb.net添加文件 vb怎么新建文件夹

VB.NET 创建文件夹

用Directory.CreateDirectory即可创建文件夹：

成都创新互联公司公司2013年成立，先为宜黄等服务建站，宜黄等地企业，进行企业商务咨询服务。为宜黄企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。

' 建立目录

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("创建成功")

VB.net如何打开添加在现有项里面的EXCEL文件

现在工程里添加引用Microsoft.Office.Interop.Excel，然后可以使用如下代码输出。

Dim oXl As Excel.Application = New Excel.Application()

Dim oWb As Excel.Workbook

Dim oWs As Excel.Worksheet

On Error GoTo Morn

oWb = oXl.Workbooks.Add()

oWs = oWb.Worksheets(1)

With oWs

.Cells._Default(1, 1).Value ="a"

.Cells._Default(1, 2).Value ="b"

.Cells._Default(1, 3).Value ="c"

.Cells._Default(1, 4).Value ="d"

.Cells._Default(2, 1).Value ="32"

.Cells._Default(2, 2).Value ="1"

.Cells._Default(2, 3).Value ="90"

.Cells._Default(2, 4).Value ="合格"             

End With

oWs.Parent.Names.Add("CostRange", "="  "A1:B39")

oWs.SaveAs(sFileName)

System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default

If MsgBox("已将数据输出到Excel文件中！ 现在打开该文件?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "已完成") = MsgBoxResult.No Then

oXl.Quit()

Else

oXl.Visible = True

End If

oXl = Nothing

oWs = Nothing

oWb = Nothing

VB.net项目编入文件

您好，这样的：

在右边你的"项目名称"上右击，里面有个“添加”，再点击“添加模块”。

这个里面写的就是连接串 创建一个公共变量connstring

假设Resources中有1.jpg

Form1.image = My.Resources.Resource1.1

VB.Net怎么创建文件

举个例子：

先引入命名空间：

Imports

System.IOImports

System.Security.AccessControl

代码：

Dim

sec

As

DirectorySecurity

=

New

DirectorySecurityDim

rule

As

FileSystemAccessRule

=

New

FileSystemAccessRule("Administrator",

FileSystemRights.Delete,

AccessControlType.Allow)sec.AddAccessRule(rule)Directory.CreateDirectory("C:\test",

sec)

这段代码就是以

Administrator

帐户

在

C:\

创建

test

文件夹。

vbnet如何判断目录下增加了文件

首先我们得判断文件/目录是否存在然后获取文件信息（创建时间）。有文件的获取时间了，就可以知道这个文件的创建时间，就能判断目录的文件是什么时候增加的，那么离自己最近的时间创建的的文件就是目录的增加文件了。

判断文件/目录是否存在

Try            ' 先判断文件是否存在。            If Not File.Exists(TextBox4.Text) Then

File.CreateText(TextBox4.Text) '单纯创建文件一般不常用，正常情况下是创建文件然后进行读写操作

'System.IO.File.Create(TextBox4.Text)            End If

Catch ex As Exception

MessageBox.Show(ex.Message)

Exit Sub

End Try

获取文件信息（创建时间） FileDateTime(fii(i).FullName)     File.GetCreationTime(path)

System.IO.File.Create(Path)'创建文件

System.IO.File.CreateText(Path)'创建文件

System.IO.File.Copy(Path,targetPath)      '复制到新位置,不允许覆盖现有文件        也可以'FileCopy(TextBox4.Text, "C:" "\" file_name(UBound(file_name))) System.IO.File.Move(SourceFileName, DestFileName)

System.IO.File.Delete(Path)

'追加 System.IO.File.AppendText'替换

System.IO.File.Replace

vb.net怎么把一个文件夹的所有文件都添加到listbox里。

定义一个窗体继承自System.Windows.Forms.Form。

添加以下控件对象到窗体：

Private folderBrowserDialog1 As System.Windows.Forms.FolderBrowserDialog

Private button1 As System.Windows.Forms.Button

Private listBox1 As System.Windows.Forms.ListBox

给button1的Click事件添加以下处理程序：

Sub Button1Click(sender As Object, e As EventArgs)

If System.Windows.Forms.DialogResult.OK=Me.folderBrowserDialog1.ShowDialog(Me) Then

Me.listBox1.Items.AddRange(System.IO.Directory.GetFiles(Me.folderBrowserDialog1.SelectedPath))

End If

End Sub