Private Sub Command1_Click()
 
Dim sFile As String
' Dateiname
Dim sPath As String
' C:\Ideas\Podoview\BACKUP\
Dim nPath As String
' C:\Ideas\Podoview\BACKUP\ + Jahr
Dim mystring As String
' Jahr
mystring = (Text1.Text)
' Textbox Eingabe
nPath = "C:\Ideas\Podoview\BACKUP\" & (mystring) & "\"
' Pfad ergänzen um Jahr
sPath = "C:\Ideas\Podoview\BACKUP\"
' Pfad wo Dateien liegen
If Dir((nPath), vbDirectory) = "" Then
  MkDir (nPath)
' Kontrolieren ob Ordner + Jahr vorhanden is, anders wird diese angelegt
  End If
sFile = Dir$("C:\Ideas\Podoview\BACKUP\*.*", vbNormal)
While Len(sFile) > 0
  If sFile <> "." And sFile <> ".." Then
    If Year(FileDateTime(sPath & sFile)) = (mystring) Then FileCopy sPath & _
      sFile, nPath & sFile
   Kill sPath & sFile ' Dateien kopieren und danach löschen
        End If
  sFile = Dir$
Wend
MsgBox ("Dateien sind verschoben nach " & nPath)
UnloadForms
End Sub
 
Private Sub Command2_Click()
UnloadForms
End Sub
' Alle geladenen Forms beenden
Private Sub UnloadForms()
  Dim F As Form
  For Each F In Forms
    Unload F
  Next F
End Sub