Re: VBA ACCESS

Article View: be.comp.programming

Article #3541

Back to be.comp.programming Previous Next

#3541

From: Billyke
Date: Wed, 31 Dec 2003 16:22

36 lines
1915 bytes

Bert,

Deze manier is de simpelste:

    Dim sFile As String
    Dim sFolder As String
    sFolder = "C:\Windows"
    If Right(sFolder, 1) <> "\" Then sFolder = sFolder & "\"
    sFile = Dir(sFolder, vbNormal)
    Do Until sFile = ""
        Debug.Print sFolder & sFile
        sFile = Dir
    Loop

In plaats van de debug.print kan je jouw functie aanroepen die het record
zal wegschrijven.

Je kan ook gebruik maken van de API's FindFirstFile() en FindNextFile(),
maar als je geen ervaring hebt met API's kan je toch beter bovenstaande
manier gebruiken...


Succes!


"Bert Vanbellinghen" <bert.vanbellinghen@pandora.be> schreef in bericht
news:tRiIb.105308$I%1.4670511@phobos.telenet-ops.be...
> Hi,
>
> Hoe kan ik in vba al de bestanden in een directory doorlopen en per
bestand
> de naam en eigenschappen wegschrijven in een tabel in access?
>
> Groeten
>
>

Technical Details

Message-ID: <bsutdb$9i$1@reader11.wxs.nl>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!newsgate.cistron.nl!news.cambrium.nl!news.cambrium.nl!news.cambrium.nl!newsfeed.wxs.nl!textnews.wxs.nl!not-for-mail

References: <tRiIb.105308$I%1.4670511@phobos.telenet-ops.be>

Show Full Headers

Complete Article Headers

X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,e1215640b819ac9b
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2003-12-31 08:23:07 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!newsgate.cistron.nl!news.cambrium.nl!news.cambrium.nl!news.cambrium.nl!newsfeed.wxs.nl!textnews.wxs.nl!not-for-mail
From: "Billyke" <gert.verstappen@gmx.net>
Newsgroups: be.comp.programming
Subject: Re: VBA ACCESS
Date: Wed, 31 Dec 2003 17:22:28 +0100
Organization: Planet Internet
Lines: 38
Message-ID: <bsutdb$9i$1@reader11.wxs.nl>
References: <tRiIb.105308$I%1.4670511@phobos.telenet-ops.be>
NNTP-Posting-Host: u212-239-152-138.dialup.planetinternet.be
X-Trace: reader11.wxs.nl 1072888043 306 212.239.152.138 (31 Dec 2003 16:27:23 GMT)
X-Complaints-To: abuse@planet.nl
NNTP-Posting-Date: 31 Dec 2003 16:27:23 GMT
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165

Reply to Parent Message