=> Cells(i + ROW_FIRST - 1, 6) = "xxx" (Hier müsste die Zelle B3 von dieser Quelle angezeigt werden)
-------------------------------------------------------------------------
Hier das habe ich bereits:
'''
'This function prints the name and path of all the files
'in the directory strPath
'strPath: The path to get the list of files from
'intRow: The current row to start printing the file names
'in
'objFSO: A Scripting.FileSystem object.
Private Function GetAllFiles(ByVal strPath As String, _
ByVal intRow As Integer, ByRef objFSO As Object) As Integer
Dim objFolder As Object
Dim objFile As Object
Dim i As Integer
Dim sExt As String
i = intRow - ROW_FIRST + 1
Set objFolder = objFSO.GetFolder(strPath)
For Each objFile In objFolder.Files
'Dateiendung suchen und mit UCASE alles GROSSZEICHEN vergleichen
sExt = GetExtension(objFile.Name)
If UCase(sExt) Like "*XLS*" Then
'print file name
Cells(i + ROW_FIRST - 1, 1) = objFile.Name
'print file path
Cells(i + ROW_FIRST - 1, 2) = objFile.Path
'print file owner...geht noch nicht
Cells(i + ROW_FIRST - 1, 3) = objFile.Type
'print file Modified User
Cells(i + ROW_FIRST - 1, 4) = objFile.Size
'print file Modified Date
Cells(i + ROW_FIRST - 1, 5) = objFile.DateLastModified
' hier möchte ich die Zelle B3 von diesem File auslesen
Cells(i + ROW_FIRST - 1, 6) = "xxx"
i = i + 1
End If
Next objFile
GetAllFiles = i + ROW_FIRST - 1
End Function
-------------------------------------------------------
Für eine kurze Hilfe oder Code Beispiel würde ich mich sehr glücklich schätzen.
Gruss