'Ereignisprozedur benötigt Filedialog und mp3les Modul
 
'+++++ VARABLEN+++++++++++++
        KsDateinamequellfeld = Me! Dateinamequellfeld
        KsTNdir = "Thumbnaildirectorypfad"
'++++++++++++++++++++++++++++++++++++

On Error GoTo Error_Öffnen_Click
' Erläuterungen im Code des Moduls
 
   Dim sPfad As String
   Dim fd As New FileDialog
   With fd
      .DialogTitle = "Mein Titel - Öffnen einer Datei DEMO"
'      .DefaultExt = "TXT"             'Standard-Endung wenn vom Benutzer nix _
  anderes angegeben
'                                      ' Ansonsten wird Filter1 verwendet
      .InitDir = sPfad
'      .Flags = OFN_FILEMUSTEXIST Or OFN_PATHMUSTEXIST Or OFN_READONLY
 
      .Filter1Text = "Alle Dateien (*.*)"
      .Filter1Suffix = "*.*"
      .Filter2Text = "Alle Dateien (*.*)"
      .Filter3Suffix = "*.*"
      .Filter2Text = "Text-Dateien (*.txt)"
      .Filter2Suffix = "*.txt"
      .Filter3Text = "Ascii-Dateien (*.asc)"
      .Filter3Suffix = "*.asc"
      .Filter4Text = "MDB-Dateien (*.mdb)"
      .Filter4Suffix = "*.mdb"
      .Filter5Text = "MD*-Dateien (*.md*)"
      .Filter5Suffix = "*.md*"
 
'      ... bis Filter5Text/Suffix ...
'
      .ShowOpen                          ' oder .ShowSave
   End With
 
'   fd.ShowOpen     wäre die Kurzform
 
sPfad = fd.FileName

Dim sDateiname As String
	'Name der selektierten Datei
sDateiname = Mid$(sPfad, InStrRev(sPfad, "\") + 1, Len(sPfad))
	'Feld(er) im Formular das quelle für automatischen Namen ist
sDateinamequellfeld = KsDateinamequellfeld
	'Thumbnaildirectory
Dim sTNdir As String
sTNdir = KsTNdir
 
sZieldateiname = sDateinamequellfeld & "." & oFSO.GetExtensionName(sPfad)
sZielpfad = sTNdir & sZieldateiname
 
FileCopy sPfad, sZielpfad

Dim oFolder As Folder
 
' Ausgangsverzeichnis
Dim snurPfad As String
snurPfad = oFSO.GetParentFolderName(sPfad)
Set oFolder = oFSO.GetFolder(snurPfad)
 
' Anzahl Dateien in Pfad von ausgewählter Datei:
Dim nCount As Long
nCount = oFolder.Files.count
[Formularfeld für Dateizahl] = nCount

' Fehlerbehandlung aktivieren
On Error Resume Next
 
' Ordnergröße (inkl. Unterordner und Dateien)
Dim nBytes As Currency
nBytes = oFolder.Size
If Err.Number = 70 Then nBytes = -1  ' Zugriff verweigert!
mbsize = FormatNumber(nBytes / 1048576, -1)
[Formualarfeld für Größe] = mbsize
' Fehlerbehandlung ausschalten
On Error GoTo 0

  If sDateiname = "" Then
      Me!coverdatei = "(keine)"
   Else
      Me!coverdatei = sZieldateiname

' Ordner umbenennen
'If Not oFolder.IsRootFolder Then
  ' Übergeordneten Ordner ermitteln
  'MsgBox "Übergeordneter Ordner: " & oFolder.ParentFolder
'End If
 
'####> funktioniert nicht######
'oFSO.MoveFolder oFolder.ParentFolder & "\" & oFolder.Name, 
' oFolder.ParentFolder & "\" & sZieldateiname
 
 
   End If
 
Exit_Öffnen_Click:
   Exit Sub
Error_Öffnen_Click:
   MsgBox Error$, , "Error_Öffnen_Click"
   Resume Exit_Öffnen_Click
End Sub