UC知道VB 能否用二维数组解决,求高手帮忙!
来源：百度知道 编辑：UC知道 时间：2024/05/26 14:34:09
. Private Sub Command4_Click() '添加新的备份的文件
Dim L As Long
For L = 0 To List2.ListCount - 1
If List2.Selected(L) = True Then
On Error GoTo ExitErr
Dim FileManyAddress As String, Files() As String, StrFileName As String
Dim I As Long, X As Long
With CommonDialog1
.InitDir = List2.List(L)
.DialogTitle = "添加文件"
'ToDo: 设置 common dialog 控件的标志和属性
.Filter = "所有文件 (*.*)|*.*"
.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer Or cdlOFNNoChangeDir
.ShowOpen
If Len(.filename) = 0 Then
Exit Sub
End If
FileManyAddress = .filename
End With
Files = Split(FileManyAddress, Chr(0))
'-----单一文件处理部分----
If UBound(Files) = 0 Then
ReDim Preserve Files(1)
I = InStrRev(Files(0), "\")
Files(1) = Mid(Files(0), I + 1)
Files(0) = Left(Files(0), I - 1)
End If
'-------------------
Dim L As Long
For L = 0 To List2.ListCount - 1
If List2.Selected(L) = True Then
On Error GoTo ExitErr
Dim FileManyAddress As String, Files() As String, StrFileName As String
Dim I As Long, X As Long
With CommonDialog1
.InitDir = List2.List(L)
.DialogTitle = "添加文件"
'ToDo: 设置 common dialog 控件的标志和属性
.Filter = "所有文件 (*.*)|*.*"
.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer Or cdlOFNNoChangeDir
.ShowOpen
If Len(.filename) = 0 Then
Exit Sub
End If
FileManyAddress = .filename
End With
Files = Split(FileManyAddress, Chr(0))
'-----单一文件处理部分----
If UBound(Files) = 0 Then
ReDim Preserve Files(1)
I = InStrRev(Files(0), "\")
Files(1) = Mid(Files(0), I + 1)
Files(0) = Left(Files(0), I - 1)
End If
'-------------------
Private Sub FileExtToArr() 'ｰﾑﾎﾄｼﾃ都ﾅﾈ・菽ｿ
Dim L As Long, I As Long
For I = 0 To 2
If Option2(I).Value = True Then FileExtIndex = I
Next
SdirNum = List2.ListCount
FileExtYesNum = List3.ListCount
ReDim FileExtYes(0 To SdirNum, 0 To FileExtYesNum) As String
For L = 1 To List2.ListCount
For I = 1 To List3.ListCount
FileExtYes(L, I) = UCase$(List3.List(I - 1))
Next
Next
End Sub
楼上说的对啊 还有什么问题啊
与你在QQ中基本解决了此问题，祝你成功！