wat aan code aanpassen dat enkel de hoofdmappen worden overgenomen

[davylenders123]

Ik heb hier een bestandje gevonden dat de gegevens uit een map overneemt in excel.

Deze neemt echter al de bestanden over die in die map staan .
Hoofdmap en al de bestanden die in die map staan ook nog eens.

Ik zoek eigenlijk nog een code die enkel de mappen in een bepaald map overneemt en niet de bestanden die in de sub mappen zitten.

vb

In c:/mijn documenten/films

Daar heb je vb de volgende mappen in staan.

flick
adem
zot van a

Dan mag hij enkel deze overnemen

flick
adem
zot van a
en niet de bestanden die in die mappen zitten ook mee overnemen.

wat moet er dan gewijzigd worden in de code ?

Bekijk bijlage inhoud map ophalen.rar

 

[edmoor]

In de routine RecurseFolderList in Module1 moet je commentaar maken van

For Each f1 In fj
    tot en met
Next

Dus een ' teken voor iedere regel zetten.

'For Each f1 In fj
'    tot en met
'Next

 

[davylenders123]

edmoor


ik heb de code aangepast zoals je heb beschreven maar doet nog niet helemaal wat het zou moeten zijn

Voor dat ik de code aanpaste had deed he dit

vb
goudkust

goudkust dvd 1

audio
video

video_ts.bup
video_tf.iso
video_ts
enzo verder

Nu geeft hij
goudkust

goudkust dvd 1

audio
video

En het zou moeten zijn
Goudkust

goudkust dvd 1

 

[edmoor]

Het programma toont nu alleen de mappen en geen bestanden, zoals je vroeg.
Die audio en video mappen zul je dus nog moeten uitsluiten.
Ik zou zeggen, kijk zelf eens in de code om te zien hoe je dat zou moeten doen.
Van alles voorkauwen leer je niks.
Als je echt wilt dat ik het voor je doe dan laat het maar weten, maar niet meer op dit tijdstip

 

[davylenders123]

edmoor

ik ben zelf echt slecht met vba maar heb je raad toch opgevolgd.

Ben er al een paar uur mee bezig maar krijg het niet echt voor elkaar.
Heb al vanalles geprobeerd.

Dan geeft hij geen resultaat , dan weer een foutcode

Zou je zo vriendelijk willen zijn mij hier nog even mee verder te helpen .
dat zou :thumb: zijn

 

[edmoor]

Uiteraard wil ik dat. Zodra ik vanmiddag weer thuis ben zal ik er er naar kijken.

 

[zapatr]

Ik zoek eigenlijk nog een code die enkel de mappen in een bepaald map overneemt en niet de bestanden die in de sub mappen zitten.

Verwijder in de Public Fuction in Module1 in de eerste for-next-lus deze regel:

RecurseFolderList (f1)

Verwijder ook in de Public Fuction in Module1 de tweede for-next-lus volledig, dus deze code:

       For Each f1 In fj

            Range("Type").Cells(RowIndex, 1) = " "
            
            iNameStart = InStrRev(f1, "\", -1, vbTextCompare)
            iDepth = CharCount(CStr(f1), "\") - iStartDepth
            If iDepth > iMaxDepth Then iMaxDepth = iDepth
                        
            Range("Type").Cells(RowIndex, iDepth).Select
            
            Selection = Mid(f1, iNameStart + 1, Len(f1) - iNameStart)
            
            ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=CStr(f1)
                        
             RowIndex = RowIndex + 1
           
       Next

 

[zapatr]

Correctie op vorig bericht:
In de laatste code van vorig bericht moet de bovenste regel, dat is deze:

For each folder check for any files

niet verwijderd worden.
Maar de volledige for-nextlus daaronder wel.
Het bericht werd inmiddels aangepast.

 

[zapatr]

Jouw bestand retour met de aanpassingen zoals hierboven weergegeven.
Klik in Blad1 op "Toon submappen".

 

[davylenders123]

edmoor & zapatr

Bedankt voor jullie hulp .:thumb:

Het werkt nu .

Dit bestandje zal mij veel tijd besparen.