Acces importeren van bestandsnamen

[DennisBosma1314]

Beste mensen,

Ik heb een vraag wat betreft acces. Ik heb een stukje vba van deze site afgeplukt.
Deze werkt prima in excel. Hiermee importeer ik bestandsnamen van een directory naar cellen in excel

Nou zou ik hetzelfde willen doen in acces alleen hier krijg ik dit niet voor elkaar.
Je kan tenslotte ook in access tabellen maken en een vba scripje schrijven.

Kan iemand mij vertellen wat ik zou moeten veranderen?

Sub BestandZoeken()
Set bz = Application.FileSearch
With bz
.LookIn = "G:\Drawing\Asterweg\tekeningen\vault"
.Filename = "*.*"
If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To .FoundFiles.Count
Range("A" & i).Value = .FoundFiles(i)
Next
End If
End With

End Sub



Alvast bedankt.

Groeten Dennis

 

[OctaFish]

En welke bibliotheek heb je hier bij geladen? Want FileSearch is geen standaard Office opdracht.
(nog een tip: graag code opmaken met de CODE tag (Knop #)

 

[OctaFish]

Beter nog: waarom het wiel opnieuw uitvinden; ik heb al eerder een heel fraai voorbeeldje gemaakt. (al zeg ik 't zelf...)

 

[DennisBosma1314]

Acces

Heb een prachtig voorbeeld gehad.
Hij doet bijna alles wat ik wil.
ik zou graag alleen nog een kolom met de extentie *.dwg willen zien.
Ook het runnen gaat niet helemaal vlekkenloos als ik namelijk op het beginformulier op de knop klik dan kan ik de map aanwijzen die hij moet doen. als ik dan op ok klik na de juiste map gekozen te hebben dan kom ik gewoon weer terug op hetzelfde formulier

 

[OctaFish]

Dat is ook de bedoeling Kijk maar eens in de tabel Bestanden!

 

[OctaFish]

Ik heb 'm aangepast; je kunt een nieuwere versie downloaden.

 

[DennisBosma1314]

acces

veel beter
ik zou alleen nog graag willen dat hij de tabel leeg haalt en opnieuw importeert.
Daar weet je vast wel raad mee

Alvast bedankt.

Groeten Dennis

 

[OctaFish]

Hij maakt nu een nieuwe tabel aan, zoals je al had gezien. Met twee extra regeltjes gooi je eerst de oude tabel weg:

strSQL = "DROP TABLE Bestanden"
DoCmd.RunSQL (strSQL)

 

[DennisBosma1314]

helemaal goed

Ik ben al een eind op weg maar voor mij word die VB taal toch wel een beetje erg lastig ik snap niet meer hoe hij het opbouwt.
Ik denk dat het niet zo moeilijk zal zijn maar ik kom er niet uit.

Ik heb een map genaamd
G:\DRAWING\Asterweg\tekeningen\vault

hierin staan tekeningen met verschillende extenties nou worden de extenties automatisch aangemaak door een programma die maak er in plaats van *.ipt

*.ipt.dwf van
Nou zou ik de volledige map + bestandsnaam (voorbeeld) in kolom 1 willen hebben

G:\DRAWING\Asterweg\tekeningen\vault\102846abcd.ipt.dwf

en uit deze text het 38e teken en dan 6 verder in dit geval 102846 in kolom 2

Hij zou standaard op deze map mogen staan want deze wijzigt niet.

Hij moet de tabel eerst leeg halen en dan vullen met de bestanden in deze map

G:\DRAWING\Asterweg\tekeningen\vault\

Ik hoop dat dit mogelijk is.