Dateiinfo beliebige Datei lesen + ändern
24.01.2004 12:59:45
andre
habe aus den faq folgendes beispiel, dass alle info's aller dateien eines verzeichnisses ausliest. ich bekomme es aber nicht hin, nur eine spezielle datei oder eine mehrfachauwahl anzusprechen, die ich mit application.getopenfilename auswähle.
Hier der originalcode:
http://xlfaq.herber.de/texte/volumina/209403x.htm
Sub ExtendedInfos()
Dim objShell As Object
Dim objFolder As Object
Dim iCounter As Integer, iRow As Integer, iCol As Integer
Dim strFileName As Variant
Dim arrHeaders(34)
Application.ScreenUpdating = False
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("D:\SP")
iRow = 3
iCol = 1
For iCounter = 0 To 33
arrHeaders(iCounter) = _
objFolder.getdetailsof(strFileName, iCounter)
Next iCounter
For Each strFileName In objFolder.items
For iCounter = 0 To 33
Cells(iRow + iCounter, 1).Value = iCounter + 1
Cells(iRow + iCounter, 2).Value = arrHeaders(iCounter)
Cells(iRow + iCounter, 3).Value = _
objFolder.getdetailsof(strFileName, iCounter)
Next iCounter
iRow = iRow + 35
Next strFileName
Application.ScreenUpdating = True
End Sub
darauf will ich zugreifen und nur davon die info's:
strFilename = Application.GetOpenFilename("GIF Files (*.gif), *.gif", , True)
strfilename wird ein array wegen der mehrfachauswahl. die schleife bekomme ich selber hin ;-) ....
hinterher will ich die info's einer datei gezielt ändern, z.b. die info nr. 30
danke und gruss andre