Dim di As New IO.DirectoryInfo("c:\") Dim diar1 As IO.FileInfo() = di.GetFiles() Dim dra As IO.FileInfo For Each dra In diar1 movefile Next