Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click() File1.FileName = File1.Path End Sub Private Sub form_load() WindowState = 2 End Sub