Developing.ru

Код: Выделить всё

Dim dname() As String  'путь к файлу датчика
ReDim dname(nd)   'задается размерность массива для количества датчиков

Private Sub CommandButton1_Click() 'кнопка [...] для задания путей на файлы
Dim FileToOpen
  
  FileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt") 'открытие файла *.txt
  If FileToOpen <> False Then
    TextBox1.Text = FileToOpen
    dname(ComboBox2.Value) = FileToOpen
  End If
End Sub

Код: Выделить всё

Public Function GetArray(sPath as String) As String()
    Dim s As String, e As String
    Dim i As Integer, j As Integer
    ReDim da(0 To 10000) As String
    s = Dir(sPath + "\*.txt", vbReadOnly)    ' Retrieve the first entry.
    If Len(s) = 0 Then
        ReDim da(0)
        da(0) = vbNullString
        GetArray = da
        Exit Function
    End If
    i = 0
    Do While Len(s) > 0
        If s <> "Normal.dot" Then
            e = Left(s, Len(s) - 4)
            If i = 0 Then
                da(i) = e: i = i + 1
            Else
                For j = i - 1 To 0 Step -1
                    If da(j) < e Then
                        Exit For
                    Else
                        da(j + 1) = da(j)
                    End If
                Next j
                da(j + 1) = e: i = i + 1
            End If
        End If
        s = Dir
    Loop
    ReDim Preserve da(i)
    GetArray = da
End Function