"Ola Aas Seeberg" <oseeberg@start.no> skrev i en meddelelse
news:a5gfbv$g51$1@troll.powertech.no...
> Jeg har nettopp begynt med VB6, og prøver å lage et lite program som skal
> gjøre følgende:
>
> Ved start vi jeg ha opp to felt som spør etter nummer og plass.
> Programmet skal da lage en mappe med undermapper.
> Enkelt sagt skal det lages mapper med strukturen:
> c:\Avdeling\Medlemmer\PLASS\NUMMER\Mappe1
[SNIP]
Noget i denne retning:
Dim fso As New FileSystemObject
Dim iNumFolders As Integer
Dim sPlass As String
Dim sNummer As String
Dim x As Integer
iNumFolders = 5
sPlass = Text1.Text
sNummer = Text2.Text
For x = 1 To iNumFolders
fso.CreateFolder "c:\Medlemmer\" & sPlass & "\" & sNummer & "\Mappe" &
CStr(x)
Next
Det kan gøres mere elegant, men ovenstående forklarer det nok bedst.
Husk en reference til Microsoft Scripting Runtime i Project -->
References...
Og husk lidt fejlhåndtering, hvis f.eks. sPlass eller sNummer er tomme.
--
mvh
Jens Vestergaard
www.railsoft.dk