Ga naar inhoud

directories met subdirectories in een bestandje zetten


Aanbevolen berichten


bedankt voor je reactie, maar ik krijg niet wat ik graag wil hebben

Ik heb directory cd's en daarin 27 directory's en daar weer de directory in met de naam van de cd en daar dus de nummers in.

Nu gaat het mij om een bestandje waar alleen de namen van de cd's staan oftewel de inhoud van de subdirectory's, in de volgorde a,b,c en zo door tot z

Mail me anders even via xxxxxxxatxxxxxxxx

PC Helpforum moderator bericht:
Email-adres verwijderd
aangepast door Dasle
Link naar bericht
Delen op andere sites

post-24526-1417705310,303_thumb.jpg

Via het tabblad Selectie kun je diverse instellingen wijzigen, maar het zal afhangen van hoe jij je mappen en bestanden hebt ingedeeld.

Maak eens een gelijkaardige mappen structuur met een paar bestanden en probeer dan eens via het wijzigen van de instellingen tot je het gewenst resultaat hebt.

Link naar bericht
Delen op andere sites

Gast
Dit topic is nu gesloten voor nieuwe reacties.
  • Welkom op PC Helpforum

  • Leden statistieken

    • Aantal leden
      40.096
    • Meeste online
      1.765

    Nieuwste lid
    avicom
    Registratiedatum
  • Gerelateerde inhoud

    • Gast
      Door Gast
      Ik heb gisteren eenn beveiliging van,
      Microsoft Security Essentials gedownload
      en geinst.
      Weet iemand hier iets van.
       
    • Door CaptainRexCC
      Games die mijn PC makkelijk aankan, crashen na een willekeurige tijd met de error LiveKernelEvent 141. Dit zijn alle details in het crashreport:
      Problem Event Name:    LiveKernelEvent
      Code:    141
      Parameter 1:    ffff9c06041df010
      Parameter 2:    fffff80340d4c188
      Parameter 3:    0
      Parameter 4:    1ab0
      OS version:    10_0_19042
      Service Pack:    0_0
      Product:    256_1
      OS Version:    10.0.19042.2.0.0.256.48
      Locale ID:    1033
      Ik speel op een windows 10 pc die altijd up-to-date is, en mijn games zeggen vaak dat ik mijn videodrivers moet updaten, terwijl ik dat al de hele tijd doe. Ik heb dit probleem al drie jaar, kan iemand mij helpen?
    • Door Joseph Van den Avont
      Ik heb onlangs een pc  via 2dehands.be en heb al meerdere keer met mijn bootable windows usb stick windows te installeren, maar steeds kom ik bij onderstaande scherm terecht bij het instellen van Windows. Dit vraagt om in te loggen met een email van dit bedrijf. Mijn vraag is, hoe kan ik dit omzeilen?
       
      Vriendelijke groeten,
      Joseph

    • Door HdL
      Hallo,
       
      Ik heb in mijn bedrijfsnaam Noé Adviesbureau Installatie Techniek de eerste letter e iets naar achteren gekanteld, zoals google dat ook heeft. Ooit door iemand zo gemaakt.
       
      Door wijziging btw nummer (eis belastingdienst) moet ik mijn briefpapier met logo en watermerk wijzigen.
       
      Als ik mijn briefpapier / logo maak, kan ik deze letter niet kantelen, zonder dat het een ontzettend kwaliteitsverlies oplevert met printen naar pdf.
       
      Kopiëren naar andere laag of vanuit een ander bestand halen en deze letter dan kantelen; zelfde probleem; de letter wordt wazig bij printen. alle andere letters blijven scherp, ook als ik die uit een andere laag/bestand haal.
      Er gebeurt dus echt iets bij het kantelen.
       
      Ik heb het nu maar recht gemaakt zodat ik even verder kan, maar dat is tijdelijk.
       
      Wie kan mij helpen.
       


    • Door bennieboef
      Hallo Allemaal,

      Mijn macro zoekt in een windows map op de volgende manier : "prd." + <cell value> + ".dld"
      Het probleem is dat er niet wordt gezocht in inderliggende bmappen

      Hier de macro :

      Option Explicit

      Sub Find_DLD()
      Dim AckTime As Integer, InfoBox As Object
      Dim iRow As Integer ' ROW COUNTER.
      Dim sSourcePath As String, currentpath As String
      Dim sDestinationPath As String
      Dim sFileType As String
      Dim sFileType1 As String

      Dim bContinue As Boolean

      bContinue = True
      iRow = 2

      ' THE SOURCE AND DESTINATION FOLDER WITH PATH.
      sSourcePath = "S:"
      sFileType = ".dld" ' TRY WITH OTHER FILE TYPES LIKE ".pdf".
      sFileType1 = "prd."


      ' LOOP THROUGH COLUMN "B" TO PICK THE FILES.
      While bContinue

      If Len(Range("E" & CStr(iRow)).Value) = 0 Then ' DO NOTHING IF THE COLUMN IS BLANK.
      Set InfoBox = CreateObject("WScript.Shell")
      AckTime = 1
      Select Case InfoBox.Popup("Klaar.", _
      AckTime, "Hieperdepiep", 0)
      Case 1, -1
      Exit Sub
      End Select
      Else
      ' CHECK IF FILES EXISTS.

      If Len(Dir(sSourcePath & sFileType1 & Range("E" & CStr(iRow)).Value & sFileType)) = 0 Then
      Range("F" & CStr(iRow)).Value = "Geen kantprogramma"
      Range("F" & CStr(iRow)).Font.Bold = True
      Else
      Range("F" & CStr(iRow)).Value = "Kantprogramma bestaat!"
      Range("F" & CStr(iRow)).Font.Bold = False

      End If
      End If
      iRow = iRow + 1 ' INCREMENT ROW COUNTER.
      Wend
      End Sub

      Het zou fantastisch zijn al iemand deze code zo kan aanpassen dat de macro ook in de onderliggende mappen van s:\ gaat zoeken.

      Alvast bedankt voor jullie hulp.
       
      Bijlage :  bestand met macro.
      Controle dxf + kantprogramma.xlsm
×
×
  • Nieuwe aanmaken...