Hi,
I am trying to select multiple files on CommonDilog, then convert it into .tcl.
My code can select one file then it converts into .tcl file and also can choose mutiple files. But the problem is when I convert those into tcl files, it does not work.
Would you please help me how I can solve this problem??
Thank you in advance
------------code-------------------
Private Sub Convert_Click()
Dim FileName As String
On Error Resume Next
CommonDialog1.Filter = "Web Files|*.htm;*.html"
CommonDialog1.Flags = cdlOFNAllowMultiselect + cdlOFNExplorer
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen
'selected file
FileName = CommonDialog1.FileName
'MsgBox (FileName)
If FileName <> "" Then
'Clear Rich Text content
RichTextBox1.Enabled = False
RichTextBox1.Text = ""
Call ConvertFile(FileName)
RichTextBox1.Enabled = True
RichTextBox1.Refresh
SmartMenuXP1.MenuItems.Enabled(3) = True
SmartMenuXP1.MenuItems.Enabled(11) = True
SmartMenuXP1.MenuItems.Enabled(13) = True
SmartMenuXP1.MenuItems.Enabled(14) = True
SmartMenuXP1.MenuItems.Enabled(15) = True
SaveButton.Enabled = True
End If
End Sub
--------------------------------------
I am trying to select multiple files on CommonDilog, then convert it into .tcl.
My code can select one file then it converts into .tcl file and also can choose mutiple files. But the problem is when I convert those into tcl files, it does not work.
Would you please help me how I can solve this problem??
Thank you in advance
------------code-------------------
Private Sub Convert_Click()
Dim FileName As String
On Error Resume Next
CommonDialog1.Filter = "Web Files|*.htm;*.html"
CommonDialog1.Flags = cdlOFNAllowMultiselect + cdlOFNExplorer
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen
'selected file
FileName = CommonDialog1.FileName
'MsgBox (FileName)
If FileName <> "" Then
'Clear Rich Text content
RichTextBox1.Enabled = False
RichTextBox1.Text = ""
Call ConvertFile(FileName)
RichTextBox1.Enabled = True
RichTextBox1.Refresh
SmartMenuXP1.MenuItems.Enabled(3) = True
SmartMenuXP1.MenuItems.Enabled(11) = True
SmartMenuXP1.MenuItems.Enabled(13) = True
SmartMenuXP1.MenuItems.Enabled(14) = True
SmartMenuXP1.MenuItems.Enabled(15) = True
SaveButton.Enabled = True
End If
End Sub
--------------------------------------