Dim sFilePath As String = "C:\Dokumente und" & _
  "Einstellungen\viperbone\Desktop\Neuer Ordner (2)"
Dim oFile As New IO.FileInfo("Neu OpenDocument Text.odt")
Dim File As IO.File
Dim oDir_Handled As IO.DirectoryInfo
 
oDir_Handled = New IO.DirectoryInfo(IO.Path.Combine(sFilePath, _
  "Answers_handled"))
 
If oDir_Handled.Exists = False Then
    oDir_Handled.Create()
End If
 
File.Move(IO.Path.Combine(sFilePath, oFile.Name), IO.Path.Combine( _
  oDir_Handled.FullName, oFile.Name))

fg viperbone