'Open
New Project. Add 2 labels,2 textbox and 1 button. 'Select Project menu,click on Components and select commond 'dialog Control 5. Add that componen on to the form. 'Write down the codes below in the form Private Sub Command1_Click() With CommonDialog1 .Filter = "*.*" .ShowOpen Text1.Text = .filename Text2.Text = Str(FileLen(.filename)) & " Bytes" End With End Sub Private Sub Form_Load() Label1.Caption = "File Name" Label2.Caption = "File Size" Text1.Text = "" Text2.Text = "" Command1.Caption = "Show Dialog" End Sub
|