命名空间:System.Windows.Forms
目前创新互联公司已为成百上千家的企业提供了网站建设、域名、虚拟主机、网站改版维护、企业网站设计、亳州网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。
Application.StartupPath 属性(返回String)
获取启动了应用程序的可执行文件的路径,不包括可执行文件的名称。
Application.ExecutablePath 属性(返回String)
获取启动了应用程序的可执行文件的路径,包括可执行文件的名称。
Path:是初始目录的路径
Private Sub WriteArray(ByVal Path As String)
'写入数组代码在这里,直接将Path写到数组就行了。
Dim dir As New IO.DirectoryInfo(Path)
For Each d As IO.DirectoryInfo In dir.GetDirectories
WriteArray(d.FullName) '递归
Next
End Sub
如果子目录较多那么递归会比较费时间,在调用递归前加入application.doevent就行了,这样在应对大递归时不会死机。
至于数组嘛使用 arraylist 最好了。
回答补充:
把递归去掉就行了啊!
见上图,用鼠标按照上述三个步骤先后次序,一一单击进行选择和设置,“生成输出路径”。
那么,在你的程序代码里使用:
MsgBox(Application.StartupPath)
显示的就是,你的当前默认的相对路径。
也可以按照自己的需要重新设置该路径。
因为不明白你问题的用意,只能这么回答你了。
绝对路径是指在文件标识符的位置,应该包含了从磁盘驱动器符号开始的所有完整路径。那么相对路径只需要在文件标识符的位置,包含斜杠 加 文件名就可以了。
相对路径,其实是指从相对于当前文件夹而言。
本文题目:vb.net局域网路径 vbs 局域网传文件
URL链接:https://www.cdcxhl.com/article10/doscgdo.html
成都网站建设公司_创新互联,为您提供营销型网站建设、全网营销推广、、网站改版、小程序开发、软件开发
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联