[Débutant] comment utiliser la variable

comment utiliser la variable

Bonjour à tous,

je souhaite utilisée la variable i pour la commande oDrive = oFSO.GetDrive("text" & i) mais je ne sais pas comment l'ecrire.

Une idee ?

Merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        Dim oFSO As Object
        Dim oDrive As Object
        Dim i As Integer
        Dim text1 As String = "\\aixcentre\c$\"
        Dim text2 As String = "\\biollay\c$\"
 
        For i = 1 To 2
 
            oFSO = CreateObject("Scripting.FileSystemObject")
            oDrive = oFSO.GetDrive("text" & i)
 
            If oDrive.freespace > 1 Then
                If oDrive.IsReady Then
                    MsgBox("Free space: " & ConvertFreeSpace(oDrive.FreeSpace))
                Else
                    MsgBox("Free space: <drive unavailable>")
                End If
            End If
 
        Next
        oDrive = Nothing
        oFSO = Nothing

Ce n'est pas du vb.net d'ailleurs décoche la référence visual basic de la liste
des réferences de ton projet et ensuite que veux tu faire ?

Citation:

Envoyé par shayw

Ce n'est pas du vb.net

Bah si... System.EventArgs c'est bien du .NET par exemple.

Par contre c'est vrai que l'essentiel du code utilise encore des techniques de VB6/VBScript/VBA... Cela dit, vu ce qu'il fait, c'est plus simple d'utiliser FileSystemObject, car la classe DriveInfo ne gère pas les lecteurs réseau.

@garnierjf, je pense que je devine ce que tu veux faire, mais essaie d'expliquer plus clairement la prochaine fois, parce que là il faut vraiment lire entre les lignes ;)

Il n'est pas possible de référencer une variable locale en "construisant" son nom comme tu le fais ; par contre, tu pourrais utiliser un tableau :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim oFSO As Object Dim oDrive As Object Dim i As Integer Dim driveNames As String() = { "\\aixcentre\c$\", "\\biollay\c$\" } For i = 0 To driveNames.Length - 1 oFSO = CreateObject("Scripting.FileSystemObject") oDrive = oFSO.GetDrive(driveNames(i)) If oDrive.freespace > 1 Then If oDrive.IsReady Then MsgBox("Free space: " & ConvertFreeSpace(oDrive.FreeSpace)) Else MsgBox("Free space: <drive unavailable>") End If End If Next oDrive = Nothing oFSO = Nothing
Remarque : la boucle va maintenant de 0 à [longueur du tableau - 1], car les tableaux sont indexés à partir de 0.