OVH Cloud OVH Cloud

re liste disque pc

2 réponses
Avatar
lou
bonjour et désolé de me repeter mais je n'y arrive pas

voici le probleme:

dans une liste avec 2 colonnes je fais afficher touts les
disques d'un pc que je ne connais pas
ceci fonctionne tres bien sauf que j'aimerais que dans la premiere colonne
il affiche seulement la lettre
ex: A et pas A:\

je signale que sur la proprieté contenu de la liste il y a :
A:\;Amovible;C:\;Dur;D:\;Dur;E:\;Dur;F:\;Dur;G:\;Amovible;H:\;CDROM-DVDROM

voici le code sur Load du form

Dim i As Integer
Dim LettreDisque As String
Me.Liste0.RowSource = ""
For i = 0 To 25
LettreDisque = Chr(i + 65) & ":\"



Select Case Getdrivetype(LettreDisque)
Case 2

Me.Liste0.RowSource = Me.Liste0.RowSource & LettreDisque & ";"
& "Amovible" & ";"

Case 3
Me.Liste0.RowSource = Me.Liste0.RowSource & LettreDisque & ";" &
"Dur" & ";"

Case 4
Me.Liste0.RowSource = Me.Liste0.RowSource & LettreDisque & ";" &
"Réseau" & ";"

Case 5
Me.Liste0.RowSource = Me.Liste0.RowSource & LettreDisque & ";" &
"CDROM-DVDROM" & ";"

Case 6
Me.Liste0.RowSource = Me.Liste0.RowSource & LettreDisque & ";" &
"RAM" & ";"

End Select
Next i

merci a tous pour votre aide
lou

2 réponses

Avatar
Raymond [mvp]
Pourquoi changes-tu de conversation, j'ai failli ne pas te voir.

Dim i As Integer
Dim LettreDisque As String
Dim LettreSimple As String
Me.Liste0.RowSource = ""
For i = 0 To 25
LettreDisque = Chr(i + 65) & ":"
LettreSimple = Chr(i + 65)
Select Case Getdrivetype(LettreDisque)
Case 2

Me.Liste0.RowSource = Me.Liste0.RowSource & LettreSimple & ";"
& "Amovible" & ";"

Case 3
Me.Liste0.RowSource = Me.Liste0.RowSource & LettreSimple & ";"
&
"Dur" & ";"

Case 4
Me.Liste0.RowSource = Me.Liste0.RowSource & LettreSimple & ";" &
"Réseau" & ";"

Case 5
Me.Liste0.RowSource = Me.Liste0.RowSource & LettreSimple & ";"
&
"CDROM-DVDROM" & ";"

Case 6
Me.Liste0.RowSource = Me.Liste0.RowSource & LettreSimple & ";" &
"RAM" & ";"

End Select
Next i

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"lou" a écrit dans le message de
news:401512e1$0$325$
bonjour et désolé de me repeter mais je n'y arrive pas

voici le probleme:

dans une liste avec 2 colonnes je fais afficher touts les
disques d'un pc que je ne connais pas
ceci fonctionne tres bien sauf que j'aimerais que dans la premiere
colonne

il affiche seulement la lettre
ex: A et pas A:

je signale que sur la proprieté contenu de la liste il y a :
A:;Amovible;C:;Dur;D:;Dur;E:;Dur;F:;Dur;G:;Amovible;H:;CDROM-DVDROM

voici le code sur Load du form

Dim i As Integer
Dim LettreDisque As String
Me.Liste0.RowSource = ""
For i = 0 To 25
LettreDisque = Chr(i + 65) & ":"



Select Case Getdrivetype(LettreDisque)
Case 2

Me.Liste0.RowSource = Me.Liste0.RowSource & LettreDisque &
";"

& "Amovible" & ";"

Case 3
Me.Liste0.RowSource = Me.Liste0.RowSource & LettreDisque & ";"
&

"Dur" & ";"

Case 4
Me.Liste0.RowSource = Me.Liste0.RowSource & LettreDisque & ";"
&

"Réseau" & ";"

Case 5
Me.Liste0.RowSource = Me.Liste0.RowSource & LettreDisque & ";"
&

"CDROM-DVDROM" & ";"

Case 6
Me.Liste0.RowSource = Me.Liste0.RowSource & LettreDisque & ";" &
"RAM" & ";"

End Select
Next i

merci a tous pour votre aide
lou






Avatar
lou
re salut
ben justement c'était une autre question puisque j'avais eu ta reponse a la
premiere
je blague
cette fois j'ai tout ce que je voulais tout fonctionne bien

je t'en fait voir hein ?
en tout cas merci pour gentillesse et pour ta patience
lou



"Raymond [mvp]" a écrit dans le message de
news:
Pourquoi changes-tu de conversation, j'ai failli ne pas te voir.

Dim i As Integer
Dim LettreDisque As String
Dim LettreSimple As String
Me.Liste0.RowSource = ""
For i = 0 To 25
LettreDisque = Chr(i + 65) & ":"
LettreSimple = Chr(i + 65)
Select Case Getdrivetype(LettreDisque)
Case 2

Me.Liste0.RowSource = Me.Liste0.RowSource & LettreSimple &
";"

& "Amovible" & ";"

Case 3
Me.Liste0.RowSource = Me.Liste0.RowSource & LettreSimple &
";"

&
"Dur" & ";"

Case 4
Me.Liste0.RowSource = Me.Liste0.RowSource & LettreSimple & ";"
&

"Réseau" & ";"

Case 5
Me.Liste0.RowSource = Me.Liste0.RowSource & LettreSimple &
";"

&
"CDROM-DVDROM" & ";"

Case 6
Me.Liste0.RowSource = Me.Liste0.RowSource & LettreSimple & ";" &
"RAM" & ";"

End Select
Next i

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"lou" a écrit dans le message de
news:401512e1$0$325$
bonjour et désolé de me repeter mais je n'y arrive pas

voici le probleme:

dans une liste avec 2 colonnes je fais afficher touts les
disques d'un pc que je ne connais pas
ceci fonctionne tres bien sauf que j'aimerais que dans la premiere
colonne

il affiche seulement la lettre
ex: A et pas A:

je signale que sur la proprieté contenu de la liste il y a :

A:;Amovible;C:;Dur;D:;Dur;E:;Dur;F:;Dur;G:;Amovible;H:;CDROM-DVDROM



voici le code sur Load du form

Dim i As Integer
Dim LettreDisque As String
Me.Liste0.RowSource = ""
For i = 0 To 25
LettreDisque = Chr(i + 65) & ":"



Select Case Getdrivetype(LettreDisque)
Case 2

Me.Liste0.RowSource = Me.Liste0.RowSource & LettreDisque &
";"

& "Amovible" & ";"

Case 3
Me.Liste0.RowSource = Me.Liste0.RowSource & LettreDisque &
";"


&
"Dur" & ";"

Case 4
Me.Liste0.RowSource = Me.Liste0.RowSource & LettreDisque &
";"


&
"Réseau" & ";"

Case 5
Me.Liste0.RowSource = Me.Liste0.RowSource & LettreDisque &
";"


&
"CDROM-DVDROM" & ";"

Case 6
Me.Liste0.RowSource = Me.Liste0.RowSource & LettreDisque & ";" &
"RAM" & ";"

End Select
Next i

merci a tous pour votre aide
lou