Path:是初始目录的路径
创新互联专业为企业提供永清网站建设、永清做网站、永清网站设计、永清网站制作等企业网站建设、网页设计与制作、永清企业网站模板建站服务,10余年永清做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
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 最好了。
回答补充:
把递归去掉就行了啊!
Dim xx As New Microsoft.Office.Interop.Excel.Application '定义进程
Dim yy As Microsoft.Office.Interop.Excel.Workbook '定义工作簿
xx = CreateObject("Excel.Application") '创建Excel对象
yy = xx.Workbooks("sheet1")
yy.Worksheets("sheet1").range("A1")="sheet2!b2"
yy.Save()
yy.Close()
yy = Nothing
xx.Quit()
xx = Nothing '销毁组建释放资源
可以用cellclick或者cellContentClick事件,然后打开一个选择文件的对话框,接着你想取这个文件的文件名,或者文件大小都可以取到了
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Process.Start("C:\1.txt")
End Sub
可以调用CMD
方法一:
Shell("cmd.exe /c call c:\新建文本文档.txt", AppWinStyle.NormalFocus)
缺点:不但会打开文本文件,同时还会显示一个cmd窗体。
方法二:
需要新建一个bat文件到资源里,输入start C:\新建文本文档.txt
代码
shell "bat文件的路径.bat"
这样就好了,两种方法各有好坏。一个会显示cmd窗体,一个需要bat文件。
售后响应及时
7×24小时客服热线数据备份
更安全、更高效、更稳定价格公道精准
项目经理精准报价不弄虚作假合作无风险
重合同讲信誉,无效全额退款