Valg af mapper til txt fil

Er der ingen der kan hjælpe ??

Lav en form, med en command1 på.

I Project-> References, sørger du for at Microsoft Scripting Runtime er slået til

Copy-paste, og kør programemt herunder:


Option Explicit
  Dim Filenumber As Long
  Dim i As Long

Private Sub Command1_Click()
  i = 0
  'Under Project > References, skal du hakke
  'Microsoft Scripting Runtime af...
  'Ellers virker fso ikke
 
  Dim fso As Scripting.FileSystemObject
  Set fso = New Scripting.FileSystemObject
  Filenumber = FreeFile
  'Kontroller selv, at filnavn er OK
  Open "c:\folders.txt" For Output As #Filenumber
    CountFolder fso.GetFolder("C:\") '<-Ret selv sti
  Close #Filenumber
  MsgBox "Slut - antal folders: " & i
End Sub


Private Sub CountFolder(folder As Scripting.folder)
  Dim tmpFolder As Scripting.folder
  Dim tmpFile As Scripting.File
  Dim strFolderName As String
  If folder.SubFolders.Count > 0 Then
    For Each tmpFolder In folder.SubFolders
      CountFolder tmpFolder '<-- Rekursivt kald - kalder sig selv
    Next
  End If
 
  'Kun ikke-tomme foldere tælles
  'Skal ALLE tælles med skal du blot
  'fjerne If ... og End If herunder
 
  If folder.Files.Count > 0 Then
    i = i + 1
    strFolderName = folder.ShortPath
    Print #Filenumber, strFolderName
  End If
 
End Sub

Du kan faktsik slette

  Dim tmpFile As Scripting.File

Den variabel fik jeg ikke brug for alligevel.

Desuden kan du vælge folder.LongPath i stedet for folder.ShortPath

fx. folder.ShortPath = C:\fotos\EGNEFO~1
fx. folder.LongPath = C:\Fotos\Egne Fotos

hallo?

beklager, har set dit svar tak for det har ikke prøvet løsningen da jeg har været væk fra maskinen i et par dage ser på det i weekenden!