1 Тема от wildwolf007

  • wildwolf007
  • Участник
  • Неактивен

Тема: Возможно ли в массиве хранить путь ?

Есть массив который считывает строку и разбивает ее в зависимости от разделителя, но к сожалению, когда в файле File.txt я указал "; D:\ ;" скрипт показал ошибку я так предполагаю из-за слеша.

Ошибка Несоответствие типа: "MyArray"


Содержимое файла File.txt:
Константин_2; D:\ ; 10000 ; 10001 ;


Set oFso = CreateObject("Scripting.FileSystemObject")

                If oFso.FileExists("C:\File1.txt") Then

                    Set vStream = oFso.OpenTextFile("C:\File1.txt", 1, True) 
                    Do Until vStream.AtEndOfStream 'цикл по строкам файла
                    sLine = vStream.ReadLine 
                    Dim MyArray
                    if  MyArray(0) = objNetwork.UserName Then
                    MsgBox "Строка с именем пользователя найдена!"
                    End If
                Loop
                vStream.Close 'закрываем файл
                End If
            MsgBox "Поиск завершен"

Что можно придумать что б можно было б хранить файловый путь или сетевой путь в массиве? Или нужно использовать какой-то другой метод?

2 Ответ от wildwolf007

  • wildwolf007
  • Участник
  • Неактивен

Re: Возможно ли в массиве хранить путь ?

Вроде разобрался. Теперь возник вопрос как открыть содержимое массива?

Строка почему-то не отрабатывается:

set objShellApp = CreateObject("Shell.Application")
objShellApp.open("Open111") 

Set objNetwork = CreateObject("Wscript.Network")
login = objNetwork.UserName
MsgBox  objNetwork.UserName , vbInformation
dim Put
Put = "C:\File1.txt"
MsgBox "Путь обозначем следующим образом " + Put

Set oFso = CreateObject("Scripting.FileSystemObject")
If oFso.FileExists(Put) Then
     Set vStream = oFso.OpenTextFile(Put, 1, True) 
     Do Until vStream.AtEndOfStream 'цикл по строкам файла
          sLine = vStream.ReadLine 
        '  MsgBox "Прочитана строка: " & sLine 
        Dim MyArray
        MyArray = Split(sLine,";")
        if  MyArray(0) = "Константин_2" Then
        dim Open111
        Open111 = MyArray(1)
        MsgBox "Строка найдена!" + MyArray(1) + Open111
            set objShellApp = CreateObject("Shell.Application")
            objShellApp.open("Open111")        
        End If
     Loop
     vStream.Close 'закрываем файл
End If
MsgBox "Поиск завершен"

3 Ответ от wildwolf007

  • wildwolf007
  • Участник
  • Неактивен

Re: Возможно ли в массиве хранить путь ?

Тему можно закрывать разобрался.