Private Sub Command1_Click() CommonDialog1.InitDir = "c:\" CommonDialog1.ShowOpen MsgBox CommonDialog1.FileNameEnd Sub