Bestanden zoeken

[Hugovanzon]

Hallo,

allereerst ik heb niet veel ervaring met vba.. soms wat kleine dingen gemaakt maar verder ben ik (nog) nooit gekomen.

nu zou ik graag iets maken om een bepaalde directory te kunnen selecteren en dat de vba een lijst maakt met alle bestanden van bijvoorbeeld *.pdf
en vervolgens in bovenliggende directory's te zoeken naar bestanden met de zelfde naam echter met de extensie .dxf en als er een bestand gevonden wordt deze dan te kopiëren naar deze directory als het niet gevonden wordt de naam in een lijst komt te staan van nog te verwerken bestanden.

Kan iemand mij daar mee helpen of op weg helpen?

Vriendelijke groet

Hugo van Zon

 

[BastS]

Hieronder eens stukje code waarin je een map(directory) kunt selecteren en de namen van de .pdf bestanden wegschrijft naar het werkblad. Ik weet niet hoe ik op een slimme manier de bovenliggende map kan toekennen aan een variabele, vandaar dat ik niet verder ben gegaan.

Sub ListAllFiles()
Dim fldr As FileDialog
Dim sItem As String
Dim location As String

Dim fso As Object
Dim objFolder As Object
Dim objFile As Object
Dim i As Integer

Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
With fldr
    .Title = "Cho0se the location."
    .AllowMultiSelect = False
    .InitialFileName = Application.DefaultFilePath
    If .Show <> -1 Then GoTo NextCode
    sItem = .SelectedItems(1)
End With
NextCode:
location = sItem
Set fldr = Nothing

Set fso = CreateObject("Scripting.FileSystemObject") 'Create an instance of the FileSystemObject
Set objFolder = fso.GetFolder(location) 'Get the folder object
i = 1 'loops through each file in the directory and prints their names and path
For Each objFile In objFolder.Files
    If Right(objFile.Name, 4) = ".pdf" Then
    Cells(i + 1, 1) = objFile.Name 'print file name
    i = i + 1
    Else
    End If
Next objFile

End Sub

 

[Hugovanzon]

kan ik weer verder mee puzzelen

Ben ik in ieder geval al stukje mee op weg geholpen.. ga ik verder zoeken of ik er wat bij kan maken!

Mijn dank is vast groot!!