Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

VB 6.0 Dirlist exprteren naar tekst bestand

Wouter Broekhuizen
6 antwoorden
  • WEet iemand of het mogelijk is met een simpele opdrachtregel de items van mij dirlist box 1 tm … te eporteren naar een tekstbestand.

    Zodat ik zoiets krijg van:

    Document1.doc
    Zipje1.zip

    Ik wil dit namelijk gebruiken om mijn cdrom met downloads te indexeren omdat ik niet weet wat er op staat.
  • Beste SDK/oude rot

    Ik heb eerder dit script gemaakt, werkt in vb script

    het maakt een txt bestand van de directory die je ingeeft in een Inputbox.
    de bestanden in de directory worden onder elkaar gezet
    Misschien kan je er iets mee in VB 6.0


    Sub verwerkFolder(byVal fNaam)
    Set oFS = WScript.CreateObject("Scripting.FileSystemObject")
    Set oFolder = oFS.getFolder(fNaam)
    Set oFile = oFS.createTextFile(fNaam & "catalog.txt")
    for each fil in oFolder.Files
    if (instr(lcase(fil.Name), ".doc") > 1) _
    OR (instr(lcase(fil.Name), ".txt") > 1) _
    OR (instr(lcase(fil.Name), ".rtf") > 1) _
    OR (instr(lcase(fil.Name), ".xls") > 1) _
    OR (instr(lcase(fil.Name), ".htm") > 1) _
    OR (instr(lcase(fil.Name), ".html") > 1) then _
    oFile.WriteLine fil.Name _
    end if

    next
    oFile.Close
    end sub

    dirName = inputBox ("Van welke directory wenst u een overzicht te maken?")
    if right(dirName, 1) <> "" then dirName = dirName & ""
    verwerkFolder(dirName)
    MsgBox "Catalogus aangemaakt"

    succes
    groet
  • Je kunt ook dit progje gebruiken als je geen zin in programmeren hebt.

    http://www.ziplabel.com


    of met een batchfile zie dit draadje
    http://forum.computertotaal.nl/phpBB/viewtopic.php?t=62160&highlight=


    Peter
  • Bedankt ardvark. Ik ga even kijken of ik er iets mee kan maken :wink:.

    En ook bedankt aan Krekel, ik zal het downlaoden en kijken of het fijn werkt.

    (ow ja mijn naam is SDK, ouwe rot is mijn titel omdat ik almeer dan 1000 berichtjes heb geplaatst)
  • Ziplabel werkt niet goed, het geeft veel te weinig aan, als ik met winxp zoeken doe op de cdrom voor *.* staan er 217 bestanden op. Dit past niet op een label en er worden daarom alles de mappen getoond :-(.

    Toch maar met VB aan de slag dan
  • Naast ziplabel stond cdr label, dit werkt al beter. Weet niet waarom windows er 270 vond, zoveel zijn het er niet (denk dat hij in zipjes heeft gezocht)

    Dit is het resultaat
    [img:253d07e7a5]http://members.lycos.nl/thedccclan/cdlabel.JPG[/img:253d07e7a5]

    Ziet er toch goed uit. (Toch ga ik ook de VB proberen want dan leer ik ook weer wat :P

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.