• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Mappen tellen

Status
Niet open voor verdere reacties.
Wigi zei:
Code: 
Sub ZetLijst()
    For Each sf In CreateObject("scripting.filesystemobject").Getfolder("C:\Wim").subFolders
        With Range("A" & Rows.Count).End(xlUp).Offset(1)
            .Value = sf.Name
            For i = 1 To 8
                .Offset(, i).Value = CreateObject("scripting.filesystemobject").Getfolder(sf.Path & "\" & Choose(i, "Audio\Audience\MP3", "Audio\Audience\FLAC", "Audio\Soundboard\MP3", "Audio\Soundboard\FLAC", "Video\Amateur\Lossy", "Video\Amateur\DVD", "Video\Pro\Lossy", "Video\Pro\DVD")).subFolders.Count
            Next
        End With
    Next
End Sub

Wigi
Klik om te vergroten...

Petje af, het werkt perfect!!
Super!
Hartelijk dank voor je hulp :)
 
Wigi, mag ik nog een oproep op je doen?

Ik wil nog 1 dingetje erin zetten.
Dat is dat hij moet controleren of er een map "Setlist" bestaat.
Indien ja, moet er "Yes" in kolom J komen te staan.
Indien nee, moet er "No" in kolom J komen te staan.
Voor de duidelijkheid, het gaat om deze directory: "H:\Concerten\YYYY-MM-DD City, State, Country - Venue (Festival)\Setlist"
 
Als je de functie FileFolderExists gebruikt, moet je enkel het pad opgeven.

Wat is het pad? Hetgeen in kolom A gezet wordt, met hardgecodeerd "\Setlist" erachter.

In mijn code worden er al gelijkaardige paden opgebouwd door vanalles samen te nemen.

Lijkt mij niet ondoenbaar als je codes begrijpt.
 
Wigi zei:
Als je de functie FileFolderExists gebruikt, moet je enkel het pad opgeven.

Wat is het pad? Hetgeen in kolom A gezet wordt, met hardgecodeerd "\Setlist" erachter.

In mijn code worden er al gelijkaardige paden opgebouwd door vanalles samen te nemen.

Lijkt mij niet ondoenbaar als je codes begrijpt.
Klik om te vergroten...

Als ik het goed genoeg begreep, had ik hier mijn vraag niet gepost.
En uiteraard probeer ik zelf ook dingen, maar ik ben hier gewoon nog te amateur voor.
 
In die post wordt:

- een If-Then-Else gebruikt, jij hebt dat nodig voor de test en de Ja of de Neen
- getest of een folder bestaat
- de naam van een folder samengesteld uit verschillende dingen (stukken tekst)

Wigi
 
Wigi zei:
In die post wordt:

- een If-Then-Else gebruikt, jij hebt dat nodig voor de test en de Ja of de Neen
- getest of een folder bestaat
- de naam van een folder samengesteld uit verschillende dingen (stukken tekst)

Wigi
Klik om te vergroten...

- Hoe ik If-Then-Else moet gebruiken, weet ik nog wel.
- Of een folder bestaat, oké.
- Tja dat is nog wel handig.

Maar ik zou bijvoorbeeld niet weten hoe je ervoor kan zorgen dat ie specifiek in kolom J, achter de juiste map "Ja" of "Nee" zet.
 
Dat wordt in mijn code gedaan via:

Code: 
        With Range("A" & Rows.Count).End(xlUp).Offset(1)
             '...
        End With

en

Code: 
       .Offset(, i).Value = ...
 
Met een paar aanpassingen ben ik tot dit gekomen, wat natuurlijk niet werkt.
Maargoed ik heb telkens dit soort fouten als ik codeer.
Ik wil graag weten wat ik fout doe, en hoe ik het anders moet doen.

Code: 
Sub ZetLijstSetlist()
    For Each sf In CreateObject("scripting.filesystemobject").Getfolder("H:\Concerten").subFolders
        With Range("A" & Rows.Count).End(xlUp).Offset(1)
            .Value = sf.Name
            For i = 1 To 8
                .Offset(, i).Value = CreateObject("scripting.filesystemobject").Getfolder(sf.Path & "\" & Choose(i, "Audio\Audience\MP3", "Audio\Audience\FLAC", "Audio\Soundboard\MP3", "Audio\Soundboard\FLAC", "Video\Amateur\Lossy", "Video\Amateur\DVD", "Video\Pro\Lossy", "Video\Pro\DVD")).subFolders.Count
            Next
        End With
    Next
        Sub Setlist()
Dim X As Variant
X = Naam
X = Replace(X, " ", "", 1, 75)

Dim fso
Dim fol As String, dest As String
sfol = DataPad & X
dfol = DataPad & "\Setlist" & X
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(dfol) Then
    With Range("J" & Rows.Count).End(x1Up).Offset(1)
        .Value = "No"
    End With
Else
    With Range("J" & Rows.Count).End(x1Up).Offset(1)
        .Value = "Yes"
    End With
End If
End Sub
 
Laatst bewerkt:
Code: 
Sub ZetLijst()
    For Each sf In CreateObject("scripting.filesystemobject").Getfolder("C:\Wim").subFolders
        With Range("A" & Rows.Count).End(xlUp).Offset(1)
            .Value = sf.Name
            For i = 1 To 8
                .Offset(, i).Value = CreateObject("scripting.filesystemobject").Getfolder(sf.Path & "\" & Choose(i, "Audio\Audience\MP3", "Audio\Audience\FLAC", "Audio\Soundboard\MP3", "Audio\Soundboard\FLAC", "Video\Amateur\Lossy", "Video\Amateur\DVD", "Video\Pro\Lossy", "Video\Pro\DVD")).subFolders.Count
            Next
            [B].Offset(, 9).Value = IIf(Dir(sf.Path & "\Setlist", 16) = "", "No", "Yes")[/B]
        End With
    Next
End Sub
 
Laatst bewerkt:
Wigi zei:
Code: 
Sub ZetLijst()
    For Each sf In CreateObject("scripting.filesystemobject").Getfolder("C:\Wim").subFolders
        With Range("A" & Rows.Count).End(xlUp).Offset(1)
            .Value = sf.Name
            For i = 1 To 8
                .Offset(, i).Value = CreateObject("scripting.filesystemobject").Getfolder(sf.Path & "\" & Choose(i, "Audio\Audience\MP3", "Audio\Audience\FLAC", "Audio\Soundboard\MP3", "Audio\Soundboard\FLAC", "Video\Amateur\Lossy", "Video\Amateur\DVD", "Video\Pro\Lossy", "Video\Pro\DVD")).subFolders.Count
            Next
            [B].Offset(, 9).Value = IIf(Dir(sf.Path & "\Setlist", [U]16[/U]) = "", "No", "Yes")[/B]
        End With
    Next
End Sub
Klik om te vergroten...

Bedankt!
Ik snap alleen niet waar die 16 vandaan komt?
Kan je dat uitleggen?

Hartelijk dank voor je hulp en sorry voor de last.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan