[VB] Listbox probleem

[Praetorian]

Ik heb een listbox op mn form, hier staan een aantal users in, voor elke user uit die listbox moet een map worden aangemaakt. Is de map aangemaakt, dan moet de user verwijderd worden uit de listbox...

code:

Dim user As Integer
Dim userString As String
For user = 0 To LstBoxDialog.ListCount - 1
    If LstBoxDialog.Selected(user) = True Then
userString = LstBoxDialog.List(user)
        'Shell ("mkdir " & userString)
        Shell Environ("comspec") & " /c " & MkDir & " " & userString, vbHide
            
       End If
Next user

Het probleem is dat ik div errors heb gehad, heb ze allemaal weggewerkt, op 1 na... die is hardnekkig

"Argument not optional" krijg ik, en dan is MkDir geselecteerd... wtf wordt er mee bedoeld...

[LauPro]

MkDir is een commando dus die kan je niet gebruiken als variabele.

[Praetorian]

Ik roep de shell aan en geef dat commando door... toch?

[Praetorian]

code:

Dim user As Integer
Dim userString As String
For user = 0 To LstBoxDialog.ListCount - 1
    If LstBoxDialog.Selected(user) = True Then
userString = LstBoxDialog.List(user)
        
        MkDir LstBoxDialog.List(user)
        
            
       End If
Next user

Werkt weer wel, hadden jullie niet ff kunnen zeggen dat VB mkdir gewoon kent

Nou alleen nog lang prutsen of ik er een een loop omheen krijg.

[LauPro]

Praeth schreef op 25 september 2002 @ 13:28:
Ik roep de shell aan en geef dat commando door... toch?

Volgens mij niet je doet iig wat raars, ff kijken:

Visual Basic:

Dim user As Integer
Dim userString As String
Const sPath = "c:\profiles\"

For user = 0 To LstBoxDialog.ListCount - 1
    MkDir sPath & LstBoxDialog.List(user)
Next
LstBoxDialog.Clear

Zoiets? Als ik naar je tekst kijk wilt je dit.

[ Voor 0% gewijzigd door LauPro op 25-09-2002 13:36 . Reden: .list erbij ]

[LauPro]

Praeth schreef op 25 september 2002 @ 13:32:
[..]
Werkt weer wel, hadden jullie niet ff kunnen zeggen dat VB mkdir gewoon kent
Nou alleen nog lang prutsen of ik er een een loop omheen krijg.

LauPro schreef op 25 september 2002 @ 13:27:
MkDir is een commando dus die kan je niet gebruiken als variabele.

Mwa commando, intructie is bijna hetzelfde hor , Maargoed problem solved

[Praetorian]

LauPro schreef op 25 september 2002 @ 13:33:
[...]

Volgens mij niet je doet iig wat raars, ff kijken:

Visual Basic:

Dim user As Integer
Dim userString As String
Const sPath = "c:\profiles\"

For user = 0 To LstBoxDialog.ListCount - 1
    MkDir sPath & LstBoxDialog(user)
Next
LstBoxDialog.Clear

Zoiets? Als ik naar je tekst kijk wilt je dit.

Dat wil ik idd!

Ik had nu net:

code:

Dim user As Integer

For user = 0 To LstBoxDialog.ListCount - 1
    If LstBoxDialog.Selected(user) = True Then
        MkDir LstBoxDialog.List(user)
    End If
Next user

Maar die doet alleen de selected user, ik ga jou code gebruiken

[LauPro]

Praeth schreef op 25 september 2002 @ 13:36:
[...]
Maar die doet alleen de selected user, ik ga jou code gebruiken

Okay, maar je moet er ook nog een foutafhandeling in maken. Als de map al bestaat gaat het mis. Dus 'on error goto x' e.d. zijn wel een goed plan. Trouwens nog een tip: Druk is op F2, kan je alle objecten zien en intructies.

[mulder]

LauPro schreef op 25 september 2002 @ 13:39:
[...]
Dus 'on error goto x' e.d. zijn wel een goed plan.

Een DirExists functie een nog beter plan.

[Sponge]

Uit m'n hoofd:

If len(dir$(dirnaam,vbDirectory)) =0 then //dir bestaat niet
(groter dan nul, dir bestaat wel).