重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
其
专注于为中小企业提供做网站、成都做网站服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业鼓楼免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了上千家企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。
FileName
属性可以取到点击确定之后的完整路径地址,是带文件名的,再利用
System.IO.Path.GetDirectoryName()
方法就可以取到文件夹路径。
其
InitialDirectory
属性可以设置打开时默认指向的路径。
见上图,用鼠标按照上述三个步骤先后次序,一一单击进行选择和设置,“生成输出路径”。
那么,在你的程序代码里使用:
MsgBox(Application.StartupPath)
显示的就是,你的当前默认的相对路径。
直接赋值即可 因为路径是字符串。lj="路径"将上面的“路径”改为需要的文件所在的路径即可
一种采用绝对路径比如"provider=Microsoft.jet.oledb.4.0;Data source= c:/xxx/AAA.mdb"
第二种采用当前exe所在路径
"provider=Microsoft.jet.oledb.4.0;Data source= “+Application.StartupPath + "\\"+”AAA.mdb"
因为不明白你问题的用意,只能这么回答你了。
绝对路径是指在文件标识符的位置,应该包含了从磁盘驱动器符号开始的所有完整路径。那么相对路径只需要在文件标识符的位置,包含斜杠 加 文件名就可以了。
相对路径,其实是指从相对于当前文件夹而言。
用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) '这里你少了一个\
End If
MsgBox("创建成功")