Code:Friend Sub Read_Script_Template() Dim Handle As Integer If Len(Dir$(mvarSCRIPT_TEMPLATE_NAME)) = 0 Then Err.Raise 53 ' File not found End If ' open in binary mode Handle = FreeFile Open mvarSCRIPT_TEMPLATE_NAME$ For Binary As #Handle ' read the string and close the file SCRIPT_TEMPLATE = Space$(LOF(Handle)) Get #Handle, , SCRIPT_TEMPLATE Close #Handle MsgBox SCRIPT_TEMPLATE End Sub




Reply With Quote