Post by rcamp48 on Dec 16, 2023 14:43:38 GMT
Function LoadDrives$ (drives() As String)
If InStr(_OS$, "[WINDOWS]") Then
Shell _Hide Chr$(34) + "wmic logicaldisk get name" + Chr$(34) + ">TempDirList.txt"
ReDim drivess(0) As String
Open "TempDirList.txt" For Input As #1
Line Input #1, junk$ 'First line is name
counter = 0
Do Until EOF(1)
counter = counter + 1
Input #1, junk$ 'drive name
ReDim _Preserve drivess(counter) As String
If Len(junk$) > 1 Then junk$ = Mid$(junk$, 2, 1) + ":" Else junk$ = "": counter = counter - 1
If junk$ <> "" Then
drivess(counter) = junk$
End If
Loop
Close #1
Kill "TempDirList.txt"
For manual = 1 To counter
LoadDrives$ = LoadDrives$ + Left$(drivess(manual), 1)
Next
End If
End Function
Anyways this is the problem I am having with the LoadDrives = LoadDrives(drivess(manual),1) statement , can it be reworded ina way that it will do the same and not bomb in the compiler?
If InStr(_OS$, "[WINDOWS]") Then
Shell _Hide Chr$(34) + "wmic logicaldisk get name" + Chr$(34) + ">TempDirList.txt"
ReDim drivess(0) As String
Open "TempDirList.txt" For Input As #1
Line Input #1, junk$ 'First line is name
counter = 0
Do Until EOF(1)
counter = counter + 1
Input #1, junk$ 'drive name
ReDim _Preserve drivess(counter) As String
If Len(junk$) > 1 Then junk$ = Mid$(junk$, 2, 1) + ":" Else junk$ = "": counter = counter - 1
If junk$ <> "" Then
drivess(counter) = junk$
End If
Loop
Close #1
Kill "TempDirList.txt"
For manual = 1 To counter
LoadDrives$ = LoadDrives$ + Left$(drivess(manual), 1)
Next
End If
End Function
Anyways this is the problem I am having with the LoadDrives = LoadDrives(drivess(manual),1) statement , can it be reworded ina way that it will do the same and not bomb in the compiler?
