Check if file exist!!

[azuri]

Ik heb een lijst met 500 velden. Ieder veld heeft een bestandsnaam. Ik wil dus een formule of macro in exel om te kijken of de bestandsnaam in de map nog staat. Wie kan me helpen.

 

[HSV]

sub hsv()
 MsgBox Join(Split(CreateObject("wscript.shell").exec("cmd /c Dir ""C:\Users\azuri\Documents\alle bestanden zoeken\*.xls""/o:n /b").stdout.readall, vbCrLf), vbCrLf) 
end sub

 

[edmoor]

Plaats eens een voorbeeld van hoe dat in je document staat. Een voorbeeld documentje dus.

 

[snb]

This code checks whether the file exists or not.

Sub M_snb()
   sn=range("A1:A500")

   for j=1 to uboundIsn)
     sn(j,1)=dir(sn(j,1))
   next

   range("B1:B500")=sn
End Sub

 

[azuri]

This code checks whether the file exists or not.

Sub M_snb()
   sn=range("A1:A500")

   for j=1 to uboundIsn)
     sn(j,1)=dir(sn(j,1))
   next

   range("B1:B500")=sn
End Sub

Thanks but i want to check if a file thats listed in exel exist in a folder. Do you know how?

 

[edmoor]

En dat is precies wat dat stukje code doet.
Zonder voorbeeld van jouw kant kan het niet preciezer.

 

[azuri]

En dat is precies wat dat stukje code doet.
Zonder voorbeeld van jouw kant kan het niet preciezer.

Bijv. In tekstvak a1 staat m8000.dot . Dit is een sjabloon dat in een map staat op de schijf. Ik wil dus controleren of in dat map dit sjabloon nog bestaat of niet.

 

[edmoor]

Nu noem je alleen de naam van een bestand. Daar hoort ook nog een schijf en 1 of meer folders bij. Is dat bij iedere entry dezelfde schijf en folder(s)? En hoe wil die controle starten? Door een druk op een knop? Met een functie in een cel? Op een ander manier? Plaats gewoon even, zoals ik al eerder opmerkte (#3), een voorbeeld bestandje met hoe het in jouw document genoteerd staat.

 

[azuri]

Dit is een voorbeeld hoe het in excel staat. Ik wil dus zien of dit in de map voorkomt

 

[snb]

Azuri,

Lees jij überhaupt de reakties van helpers?
Als helpers net zo intensief de inhoud van jouw posts zouden negeren als jij die van hen is dit een zinloze draad.
Kortom, waarom negeer jij verzoeken van helpers als je geholpen wil worden ?

 

[azuri]

huh hoezo negeer ik dan. ik heb toch een screenshot van het bestand gestuurd ?

 

[snb]

Een plaatje is geen Exceldocument. Dit is een Excelforum.

 

[azuri]

Bekijk bijlage Map1.xlsx

Dit is een voorbeeldbestandje. Voor 450 bestanden is het dezelfde map op de schijf. Het liefst wil ik bijv in een cel ernaast een tekst zien dit bestand bestaat of dit bestand bestaat niet?. Hopelijk helpt dit !

 

[edmoor]

Dat kan dan met een simpele functie.
In een module:

Public Function FILEXIST(Bestand As Range) As Boolean
    On Error GoTo Fout
    evt = Split(Bestand, "\\")(1)
    If Dir("\\" & evt) <> "" Then
        FILEXIST = True
        Exit Function
    End If
Fout:
End Function

Aanroep in B1:
=FILEXIST("A1")

Als je dat WINWORD er voor weg haalt kan die functie nog veel simpeler.
Dat WINWORD is geen onderdeel van een pad of bestandsnaam en hoort er dus niet in thuis.
En om dat soort dingen is er dus altijd een voorbeeld document nodig.

 

[azuri]

ik heb dit gedaan maar krijg een #naam te zien in vak B1. Ik heb overigens de tekst in kolom A laten vervangen door het bestandpad bijv. C:\ . Er staat geen winword meer voor. Alleen krijg het nog niet werkend?

 

[azuri]

Had een tikfout maar heb het opgelost. Alleen weergeeft het nu bij allemaal onwaar

 

[edmoor]

De functie is goed.
Plaats dus het document zoals je deze nu hebt.

 

[azuri]

dankje hij werkt goed. Heb een vraag nog. Als ik hem in meerdere directories wil laten zoeken. Kan dat ?

 

[edmoor]

Tuurlijk, maar dat zal wel geprogrammeerd moeten worden. Zoals je ziet luistert dat allemaal erg nauwkeurig.