锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net文件夹数组 vb文件夹操作

数组IT技术

vb.net 数组的定义方法1、vb.netvb.net文件夹数组的
数组定义与变量定义差不多 。可以用
dim
来定义
比如:
dim
a（100）
as
integer 。
也可以不定义下标
在程序中
用
redim
来定义 。
如vb.net文件夹数组：
dim
a()
as
integer
'
'
redim
a(100)
2、vb.net中定义数组可以直接赋值 。
如vb.net文件夹数组：
dim
a()
as
integer
={1,
2,
3,4}
VB.NET读取TXT文件数据保存为数组VB.NET编程读取txt文本文档中的数据vb.net文件夹数组，并把数据保存为数组，代码如下vb.net文件夹数组：
'写配件文件
Private Sub saveIni(ByVal filePath As String, ByVal str As String)
【vb.net文件夹数组 vb文件夹操作】Dim sw As StreamWriter = New StreamWriter(filePath, True) 'true是指以追加的方式打开指定文件
sw.WriteLine(str)
sw.Flush()
sw.Close()
sw = Nothing
End Sub
'读配件文件
Private Function readIni(ByVal filePath As String)
Dim iniDt As New DataTable
iniDt.Columns.Add("text")
iniDt.Columns.Add("value")
Try
Dim sr As StreamReader = New StreamReader(filePath, System.Text.Encoding.Default)
Dim line As String = ""
While Not sr.EndOfStream
Dim str = sr.ReadLine()'读取当前行
iniDt.Rows.Add(New String() {
str(0),
str(1)
})
End While
sr.Close()
sr = Nothing
Catch ex As Exception
End Try
Return iniDt
End Function
VB.NET读取固定格式TXT文件数据为二维数组的方法Dim rootlist() As String
Dim data(0, 0) As String
Dim tmp() As String
Dim listLengh As Int32
Dim I As Integer, II As Integer
rootlist = Split(IO.File.OpenText("C:/001.txt").ReadToEnd, vbCrLf)
listLengh = UBound(rootlist)
ReDim data(listLengh, 0)
For I = 0 To listLengh
tmp = Split(rootlist(I), "vb.net文件夹数组，")
ReDim Preserve data(listLengh, UBound(tmp))
For II = 0 To UBound(tmp)
data(I, II) = tmp(II)
Next
Next
For I = 0 To 2
For II = 0 To 2
MsgBox(data(I, II))
Next
Next
在VB.net中，如何遍历指定路径下的文件夹并把文件夹名存储在数组中？给vb.net文件夹数组你一个提示吧vb.net文件夹数组！呵呵 ， 剩下的要自己思考哦vb.net文件夹数组！
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 最好了 。
回答补充：
把递归去掉就行了?。?
vb.net 数组vb.net已经去掉了控件数组这个类，不过有个代替该方式的一个属性：Tag，你可以把这些关联的Tag属性设置为同一标记，如：a 。然后遍历所有的checkbox并且tag为a的则选定：Protected Sub chkAll_Click()For Each ctl As Control In Me.Controls''如果checkbox在一个容器里，比如groupbox，那可以用groupbox.controls
If ctl.GetType().Name.ToLower() = "checkbox" Then
CType(ctl, CheckBox).Checked = CheckBox3.Checked
End If
NextEnd Sub
vb.net 怎么把数组分成若干份不需要用数组：
假设已经存在的图片文件存放在 C：\图片 文件夹里，并假设新创建的文件夹位于C：\图片 文件夹里 。
在窗体上添加一个按钮 ， 代码如下：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n As Long = -1
Dim P As Long = -1
Dim Pn As String
Dim MyNum As Integer = 100'每100个文件存放在一个文件夹里
Dim MyPath As String
Dim MyFileName As String
Button1.Enabled = False
MyPath = "C:\图片\"'指定已有图片的路径
MyFileName = UCase(Dir(MyPath, FileAttribute.Normal))' 找寻第一项 。
Do While MyFileName""' 开始循环 。
If InStr(MyFileName, "JPG")0 Or InStr(MyFileName, "GIF")0 Or InStr(MyFileName, "PNG")0 Then
n = n1
If n \ MyNumP Then
P = P1
Pn = CStr(n \ MyNum1)
MkDir(MyPathPn)
End If
FileCopy(MyPathMyFileName, MyPathPn"\"MyFileName)
End If
MyFileName = UCase(Dir())' 查找下一项
Loop
Button1.Enabled = True
End Sub
代码通过测试 。
vb.net文件夹数组的介绍就聊到这里吧 ， 感谢你花时间阅读本站内容，更多关于vb文件夹操作、vb.net文件夹数组的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：视频号直播推广如何开通的简单介绍

    下一篇：怎么查看服务器的数据 服务器怎么查账