Discussion :

[garnierjf]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[shayw]

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 ?

[tomlev]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.