Vælge første mappe i en mappe..

Med den "første mappe" - mener du da at det er den der er først hvis de er sorteret efter deres navn?

En nem måde er at smide en dirlistbox med navn "Dir1" på din form, og bruge denne kode:

Dir1.Path = "c:\test"
MsgBox "Første mappe er : " & Dir1.List(0)
MsgBox "Mappe nr. 3 er : " & Dir1.List(2)
... osv

Altså for at svare helt specifikt:

Smid en drivelistbox på din form. Brug koden:

  Dir1.Path = "c:\test"
  mappe = Dir1.List(0)

kan man få dirlisten til at vise skjulte mapper????

Det tror jeg ikke.

Men det kan du med FSO (File System Object)

Med denne kode får du vist alle foldere i c:\temp, også de skjulte.

Først gå til Project > References og vælg Microsoft Scripting Runtime

Smid en command1 på din form, copy-paste koden og kør programmet


Option Explicit

Dim FolderArray() As String

Private Sub Command1_Click()
  Dim strSearchFolder As String
  Dim strFirstFolder As String
 
  Dim i As Long
  Dim fso As Scripting.FileSystemObject

  Set fso = New Scripting.FileSystemObject
  strSearchFolder = "C:\temp"  '<--Skift evt. mappenavnet
  FindfirstFolder fso.GetFolder(strSearchFolder)
  For i = LBound(FolderArray) To UBound(FolderArray)
    MsgBox " Folder nummer " & i + 1 & " hedder " & FolderArray(i)
  Next i
  MsgBox "Ikke flere foldere"
End Sub

Private Sub FindfirstFolder(folder As Scripting.folder)
  Dim tmpFolder As Scripting.folder
  Dim j As Long
 
  If folder.SubFolders.Count > 0 Then
    For Each tmpFolder In folder.SubFolders
      ReDim Preserve FolderArray(j)
      FolderArray(j) = tmpFolder.Name
      j = j + 1
    Next
  End If
End Sub

TAkker