AW: Win 7, Win XP Dateisystem
19.12.2011 20:17:27
ransi
HAllo Albrecht
Ich glaube XP kennt das noch nicht ?!?
Tabelle1
| | A | B | C |
| 1 | # | Windows XP | Windows 2000 |
| 2 | Windows Server 2003 |
| 3 | 0 | Name | Name |
| 4 | 1 | Size | Size |
| 5 | 2 | Type | Type |
| 6 | 3 | Date Modified | Date Modified |
| 7 | 4 | Date Created | Attributes |
| 8 | 5 | Date Accessed | Comment |
| 9 | 6 | Attributes | Date Created |
| 10 | 7 | Status | Date Accessed |
| 11 | 8 | Owner | Owner |
| 12 | 9 | Author | ? |
| 13 | 10 | Title | Author |
| 14 | 11 | Subject | Title |
| 15 | 12 | Category | Subject |
| 16 | 13 | Pages | Category |
| 17 | 14 | Comments | Pages |
| 18 | 15 | Copyright | Copyright |
| 19 | 16 | Artist | Company Name |
| 20 | 17 | Album Title | Module Desription |
| 21 | 18 | Year | Module Version |
| 22 | 19 | Track Number | Product Name |
| 23 | 20 | Genre | Product Version |
| 24 | 21 | Duration | Sender Name |
| 25 | 22 | Bit Rate | Recipient Name |
| 26 | 23 | Protected | Recipient Number |
| 27 | 24 | Camera Model | Csid |
| 28 | 25 | Date Picture Taken | Tsid |
| 29 | 26 | Dimensions | Transmission Time |
| 30 | 27 | ? | Caller Id |
| 31 | 28 | ? | Routing |
| 32 | 29 | ? | Audio Format |
| 33 | 30 | Company | Sample Rate |
| 34 | 31 | Description | Audio Sample Size |
| 35 | 32 | File Version | Channels |
| 36 | 33 | Product Name | Play Length |
| 37 | 34 | Product Version | Frame Count |
| 38 | 35 | ? | Frame Rate |
| 39 | 36 | ? | Video Sample Size |
| 40 | 37 | ? | Video Compression |
Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Option Explicit
Sub Dateieigenschaften()
'von k.rola
Const STRFOLDER As String = "C:\" 'anpassen
Dim objShell As Object
Dim objFolder As Object
Dim x As Byte
Dim spalte As Integer
Dim zeile As Long
Dim varName, arrHeaders(255)
If Dir(STRFOLDER, 16) = "" Then
MsgBox "Der Ordner " & STRFOLDER & " wurde nicht gefunden!" & Space(10), 64, "weise hin..."
Exit Sub
End If
' Application.ScreenUpdating = False
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(STRFOLDER)
spalte = 1
On Error Resume Next
For x = 0 To 255
arrHeaders(x) = objFolder.GetDetailsOf(varName, x)
Cells(1, spalte + x) = arrHeaders(x)
Next
Rows(1).Font.Bold = True
zeile = 2
For Each varName In objFolder.Items
For x = 0 To 255
Cells(zeile, spalte + x) = objFolder.GetDetailsOf(varName, x)
Next
zeile = zeile + 1
Next
Columns.AutoFit
' Application.ScreenUpdating = True
End Sub
ransi