Vba Open En Cad.txt

Public Sub OpenFile() 'sample to show how to use FileDialogs Dim objFile As FileDialogs Dim strFilter As String Dim strFileName As String Set objFile = New FileDialogs objFile.OwnerHwnd = ThisDrawing.HWND32 'desc,filter combinations must all be separated with pipe char "|" strFilter = "Drawings (*.dwg)|*.dwg|All Files (*.*)|*.*" objFile.Title = "Open a drawing" 'default dir is CurDir objFile.StartInDir = "c:\" objFile.Filter = strFilter 'return a valid filename strFileName = objFile.ShowOpen If Not strFileName = vbNullString Then 'use this space to perform operation MsgBox strFileName End If Set objFile = Nothing End Sub