Zoeken van locatie en plaatsen in cel

[Offthefield]

Ik wil een procedure maken, zodat ik een bijlage kan vinden op mijn computer
en de locatie kan plaatsen in een cel bv.

Locatie : C:\EXTRA SCHIJF\9001.jpg en deze plaatsen in bv. Cel A1

Heeft iemand hiervan een voorbeeld of een idee hoe je dit kan opzetten?

Bijgevoegd een voorbeeld van opvragen Dir(), zoiets als dit moet het worden?!

bvd


Bekijk bijlage OK-Dir 0pvragen.xlsOffthefield

 

[mcs51mc]

Wel, je hebt ons een mooi voorbeeld gegeven dus begrijp ik de vraag niet ?!?
Tenzij je enkel "jpg" files wenst op te lijsten en je die juist niet krijgt.
Dat komt omwille van de code

X = Array("jpg")

in sub "Excludes".
Die array bevat de extenties die je NIET wilt hebben in de lijst.

 

[Offthefield]

Ik heb alle bestanden aangegeven die ik niet wil hebben, maar ik wil nu een
bepaalde .jpg uit de DIRECTORY slecteren en als tekst in cel A1 hebben bv. C:\EXTRA SCHIJF\EXCEL\9001.jpg

Offthefield

 

[Offthefield]

De vraag is nog niet opgelost!

 

[Warme bakkertje]

maar ik wil nu een bepaalde .jpg uit de DIRECTORY

Maar op welke wijze ga je dan aangeven welk bestand je zoekt ??

 

[Offthefield]

Warme Bakkertje,

Vanuit een listbox wil ik de afbeelding of document selecteren
en deze laten plaatsen in veld A1 mbv een knop

Offthefield

 

[mcs51mc]

Maar hoe ga je aangeven in welke map er moet gezocht worden?
Ga je de code gebruiken die je in eerste post zette of niet?

Post eens een file zoals je de finale applicatie/werkwijze ziet.
Want nu is het echt koffiedik kijken hoe jij de zaak ziet
En wij (ik toch niet) zijn niet helderziende.

 

[Offthefield]

Ik ben met wat knippen en plakken tot een oplossing genomen,
alleen nu wil ik niet alleen een .jpg laten zien in kolom A,
maar ook een .doc bestand

Hoe kan ik dit oplossen?

Offthefield

 

[Warme bakkertje]

Private Sub Doorzoeken()
Dim Search_Dir As String 'Te doorzoeken locatie
Dim Search_Ext As String 'Te zoeken extensie
extArray = Array("jpg", "doc")
Search_Dir = "C:\EXTRA SCHIJF\EXCEL1"
For Each it In extArray
    Search_Ext = "." & LCase(it)
    With CreateObject("scripting.filesystemobject").getfolder(Search_Dir)
        'Zoeken in hoofdmap
        For Each fl In .Files
            If LCase(Right(fl.Name, Len(Search_Ext))) = Search_Ext Then c0 = c0 & fl.Path & "|"
        Next
        'Zoeken in eerste submap
        For Each sfl In .SubFolders
            For Each fl In sfl.Files
                If LCase(Right(fl.Name, Len(Search_Ext))) = Search_Ext Then c0 = c0 & fl.Path & "|"
            Next
        Next
    End With
Next
[A1].Resize(UBound(Split(c0, "|"))) = WorksheetFunction.Transpose(Split(c0, "|"))
End Sub

 

[Offthefield]

Klasse!!, Warme bakkertje

Probleem opgelost!!

Offthefield

 

[Warme bakkertje]

Bij nader inzien, waarom eerst wegschrijven naar werkblad ?

Private Sub UserForm_Initialize()
Dim Search_Dir As String 'Te doorzoeken locatie
Dim Search_Ext As String 'Te zoeken extensie
extArray = Array("jpg", "doc")
Search_Dir = "C:\EXTRA SCHIJF\EXCEL1"
For Each it In extArray
    Search_Ext = "." & LCase(it)
    With CreateObject("scripting.filesystemobject").getfolder(Search_Dir)
        'Zoeken in hoofdmap
        For Each fl In .Files
            If LCase(Right(fl.Name, Len(Search_Ext))) = Search_Ext Then c0 = c0 & fl.Path & "|"
        Next
        'Zoeken in eerste submap
        For Each sfl In .SubFolders
            For Each fl In sfl.Files
                If LCase(Right(fl.Name, Len(Search_Ext))) = Search_Ext Then c0 = c0 & fl.Path & "|"
            Next
        Next
    End With
Next
ListBox1.List = WorksheetFunction.Transpose(Split(c0, "|"))
End Sub

 

[Offthefield]

Warme Bakkertje,

Dat is er ook een om mee te nemen , hartelijk dank

Offthefield