CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

jwc Nybegynder

22. januar 2001 - 16:56 Der er 6 kommentarer og
1 løsning

Find fil med VB

Hej
Et gammelt problem som jeg lige vil prøve at kaste ud i forum.
Findes der en enkelt funktion i VB, hvor man kan søge efter en fil eller mappe fra roden af et drev. Jeg har kikket på MS API FindFirstFile og på de objekter der følger med VB. F.eks. FileListbox, FileSystemObject og File. Men ingen syntes at kunne løse problemet med at søge igennem en biblioteks struktur uden at man skal programmer sig ud af det. Jeg ville gerne kunne skrive. If FindFil(Drev = C:\\, Filname = \"Test.txt\", ReturPath = Sti retur) then... Men så let er livet vel ikke..
Ps. Jeg ved godt at det ikke er noget problem, hvis jeg står i det aktuelle bibliotek eller, hvis jeg vil søge i aktuelle bib., App bib. , system Bib eller windows bib. Men nu vil jeg altså søge i alle bib.

VH
Jwc

Synes godt om

driis Nybegynder

22. januar 2001 - 18:02 #1

Her finder du et godt eksempel på, hvordan det kan gøres - koden i eksemplet er ret nem at rette til, så du kan bruge det som en funktion i dine egne programmer:

http://www.vb-world.net/files/findfiles/

Synes godt om

tdaugaard Nybegynder

22. januar 2001 - 18:03 #2

Det er ikke så svært.

http://www.tdaugaard.dk/x/recdelete.zip

Hvis du henter den fil og udpakker den er der et VB 6.0 projekt i den jeg har lavet for en her på eksperten der søger harddisken igennem for MP3 filer. Det viser hvordan du kan gøre det.

Det du gør for at søge efter een fil er at sætte File1\'s .Pattern property til f.eks. \"devenv.exe\" hvorefter den kun vil vise filer der matcher det pattern.

Synes godt om

tdaugaard Nybegynder

22. januar 2001 - 18:04 #3

husk mig lige på at lade være med at sidde og lave andre ting imens jeg er ved at svare på et spm, ok !? ;-)

Synes godt om

jwc Nybegynder

22. januar 2001 - 18:46 #4

Hej
Tak for den hurtige respons. Jeg får ikke lige tid til at kikke på forslagene før sidst på ugen.
Jeg har dog prøvet at eksekvere begge programmer:
tdaugaard : Jeg får følgende error når jeg klikker på Seach: Run time 76.. Path not found. Men som du skriver skal det nok rettes lidt til, så jeg glæder mig til at kikke nærmer på det.

driis : Jeg har hentet det omtalte program og det ser ud til at køre uden problemer, så jeg glæder mig til at se dette igennem også.

Synes godt om

tdaugaard Nybegynder

22. januar 2001 - 20:14 #5

jwc:> det er fordi den søger i C:\\Mp3 ... for at jeg selv kunne teste .. det skal bare ændres i koden til \"C:\\\"

Synes godt om

xelor Nybegynder

22. januar 2001 - 22:45 #6

Følgende kode virker i VBA...om den virker i VB, har jeg ikke fået testet....

Sub FIndFIles()

With Application.FileSearch
.filename = \"*.txt\"
.FileType = msoFileTypeAllFiles
.LookIn = \"c:\\\"
.SearchSubFolders = True
MsgBox .Execute
End With

End Sub

msgbox\'en vil give antallet af fundne filer. Hvis der ikke findes nogle vil .execute give 0, men som sagt, her jeg ikke fået det testet i VS...

Synes godt om

jwc Nybegynder

02. marts 2001 - 11:51 #7

Sorry Undskyld, beklager.
Jeg har været lidt væk og troede at jeg havde afsluttet sagen. Ingen undskyldning men !!
Alle forslag kan bruges så jeg valgte at give efter først til møllen

VH
Jan

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34
Opdatering af SAPgrid værdi Af dane022 i Visual Basic	3	25/04/202414:26	28/08/202419:09
overskrive datasæt hvis det allerede eksistere Af overisen i Visual Basic	0	08/12/202320:00	-
Manuel rotering af billedfil i en formular, 90 - 180 - 270 - 360 grader Af stejuu i Visual Basic	2	04/12/202320:07	09/12/202310:49
Erstat http med faktisk billede Af crjensen i Visual Basic	0	09/10/202309:14	-

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS

12:00

Ugen i tech: El-kolos kan fragte syv personer over 620 kilometer / Sony er klar med ny kamera-konge: Alpha 1 mk II

22/11

Test: Den snusfornuftige Volkswagen ID.3 blevet til lidt af el-bisse

22/11

Vil købe tele-løsninger til det offentlige for 370 millioner kroner

22/11

Nørgaard: Det er de neuro-divergente originalers tid

22/11

Sker helt åbenlyst: Ansatte i den kinesiske stat sælger borgernes personlige data på hemmelige internet-fora

22/11

Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"

22/11

Derfor bliver den amerikanske tvangs-opdeling af Google nok ikke til noget

22/11

Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen

22/11

Vi har fundet 10 ledige it-stillinger, som du kan søge netop nu

22/11

Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet

22/11

Kombit gør klar til at købe it-konsulenter for 140 millioner kroner - her er planen

Vis flere artikler

IT-JOB

ATP

Data Partner til at sikre godt samarbejde om data og eksterne datakilder

Intempus

Senior Front End Developer

Globus Data ApS

Imødekommende og serviceminded kundeservicemedarbejder/it-supporter

Simteq A/S

Projektleder/Økonomikonsulent

KMD A/S

BI Developer

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 13:30	Hvordan ændres UniFi Dream Machine UDM til switch mode Af Kasper4450 i Internetforbindelser
I dag 13:01	Film går i stå midt i afspilningen Af ole falsted i Musik & videoafspillere
I dag 11:40	Fjerne mappe i stifinder Af Peter Olsen i Andet software
I dag 11:27	renteberegning Af Pil i Excel
I går 22:30	Underlig meddelelse på skærmen Af Jordegern i E-mail programmer