Ændre en Variable til et Array
Hej eXperten,Jeg har et lille stykke kode, jeg burde virke, men det gør det ikke.
Jeg har brug for at lave en variable on til et array.
Variablen består af flere linier, og jeg vil gerne have en splittet på linier ind i et array.
Nedenstående er et tænkt eksempel, for at illustrere mit problem.
'---------- Klip --
Option Explicit
Dim WshShell, oExecObject
Dim Username, Password, strCommand, strText, strLine
Dim arrText()
Set WshShell = CreateObject("WScript.Shell")
'Main
strCommand = "%comspec% /c dir c:\"
Set oExecObject = WshShell.Exec(strCommand)
strText = oExecObject.StdOut.ReadAll()
GetLines()
'WScript.Echo strText
'-----------------------------------------------------------------------------------------
'Subs
Sub GetLines
arrText = Split(strText, vbCrLf)
For Each strLine In arrText
WScript.Echo strLine
Next
End Sub
' --- Slut --