新建立个窗体，放入文件夹控件等，然后点确定返回一个字符串即可。
成都创新互联公司专业为企业提供江津网站建设、江津做网站、江津网站设计、江津网站制作等企业网站建设、网页设计与制作、江津企业网站模板建站服务，十多年江津做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
选择文件或者选择文件夹时，显示这个窗体，然后取这个字符串。
窗体上放置一个dirlistbox控件
dim
s
as
string,
t
as
integer
private
sub
dir1_change()
if
ubound(split(dir1.path,
"\"))
t
then
dir1.path
=
s
end
sub
private
sub
form_load()
dir1.path
=
app.path
'设置指定操作文件夹，这里是程序所在目录
s
=
dir1.path
t
=
ubound(split(s,
"\"))
end
sub
补充回答：
这个似乎就和你一开始的要求有冲突了。如果这个文件夹是指定文件夹的子文件夹，那么你可以通过dirlistbox随意操作，如果不是，那么根据你的要求，就不能随意打开。如果你的意思是指任意设置指定的目录，那么我在上面的程序中也有说明了，只要给dir1.path赋值即可（比如dir1.path
=
"d:\crt"），方法有多种（包括读取文件中保存的路径名等），但不管用什么方法，都不能够在程序界面上给用户任意选择，否则你开始的那些要求就没意义了。
今天，随着应用软件的复杂化，开发者经常需要处理一些很长的类。一种更易于管理这些类的方法就是，将这些类分成多个文件。Partial是VB.NET新引进的一个关键字，它允许您将类分成多个物理源文件。您也可以使用Partial关键字用多个文件来定义一个类。 一般大型项目都有很多开发者，这些开发者可能会在同一时间对同一个类进行操作，这时候将一个类分解成多个源文件就更利于开发者同时对同一个类进行操作，或者当这些类定义得太长的时候，将它分解成多个文件就会更易于处理。 您需要使用Partial关键字，这个关键字的作用就是告诉VB编译器在创建类之前去收集类的所有分块。如果您使用了多个文件，您并不需要在类的每一个地方都使用这个关键字——只要在一个地方用到就可以了。然而，同一个类的所有块都必须定义在同一个命名空间中。 编译器将类看作是所有部分声明的集合。每个部分定义的每个修改者都可以应用完整的类。 注意：如果您使用的类是从其它类继承而来的，或者是实现了某个接口，那么只要在类的某一部分使用Inherits或者Implements关键字就可以了。
Dim MyOpen As New OpenFileDialog
MyOpen.Multiselect = True
Dim Addstr As String = "Add内容" '要添加的内容
Dim AddByte() As Byte = System.Text.Encoding.Default.GetBytes(Addstr)
If MyOpen.ShowDialog = Windows.Forms.DialogResult.OK Then
For Each MyFileName As String In MyOpen.FileNames
Dim MyByte() As Byte = IO.File.ReadAllBytes(MyFileName)
Dim AddByteOk(AddByte.Length + MyByte.Length - 1) As Byte
AddByte.CopyTo(AddByteOk, 0)
MyByte.CopyTo(AddByteOk, AddByte.Length)
IO.File.WriteAllBytes(MyFileName, AddByteOk)
Application.DoEvents()
Next
End If
按照此方法绝对OK
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim opfile As New OpenFileDialog '声名新open 窗口
Dim filetmp() As String '存文件名
opfile.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*" '添加过滤文件
opfile.Multiselect = True '多开文件打开
If opfile.ShowDialog = Windows.Forms.DialogResult.OK Then '如果打开窗口OK
If opfile.FileName "" Then '如果有选中文件
ReDim filetmp(opfile.SafeFileNames.Length)
filetmp = opfile.SafeFileNames '取文件名
For i As Integer = 0 To filetmp.Length - 1
ListBox1.Items.Add(filetmp(i)) '添加文件名
Next
End If
End If
End Sub
input type="file" name="file" multiple /
加个multiple 然后进行上传操作
