diff options
Diffstat (limited to 'shiftos_next/BWM and CMD Apps/file skimmer.vb')
| -rw-r--r-- | shiftos_next/BWM and CMD Apps/file skimmer.vb | 38 |
1 files changed, 24 insertions, 14 deletions
diff --git a/shiftos_next/BWM and CMD Apps/file skimmer.vb b/shiftos_next/BWM and CMD Apps/file skimmer.vb index cf10447..125c3e9 100644 --- a/shiftos_next/BWM and CMD Apps/file skimmer.vb +++ b/shiftos_next/BWM and CMD Apps/file skimmer.vb @@ -105,28 +105,37 @@ End If Else If mode = "open" Then - Dim filinf As New IO.FileInfo(lvfiles.SelectedItems(0).Tag) - Select Case application - Case "textpad" - If filinf.Extension = ".txt" Then - Dim sr As New IO.StreamReader(lvfiles.SelectedItems(0).Tag.ToString) - TextPad.txtfilebody.Text = sr.ReadToEnd() - sr.Close() + If IO.Directory.Exists(lvfiles.SelectedItems(0).Tag) Then + OpenFile(lvfiles.SelectedItems(0).Tag) + Else + Dim filinf As New IO.FileInfo(lvfiles.SelectedItems(0).Tag) + Select Case application + Case "textpad" + If filinf.Extension = ".txt" Then + Dim sr As New IO.StreamReader(lvfiles.SelectedItems(0).Tag.ToString) + TextPad.txtfilebody.Text = sr.ReadToEnd() + sr.Close() + Me.Close() + End If + Case "skin_loader" + SkinLoader.readfile(lvfiles.SelectedItems(0).Tag.ToString) + SkinLoader.skintoload = lvfiles.SelectedItems(0).Tag.ToString Me.Close() - End If - Case "skin_loader" - SkinLoader.readfile(lvfiles.SelectedItems(0).Tag.ToString) - SkinLoader.skintoload = lvfiles.SelectedItems(0).Tag.ToString - Me.Close() - End Select + End Select + End If Else OpenFile(lvfiles.SelectedItems(0).Tag) End If - End If + End If Catch End Try End Sub + Private Sub file_skimmer_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + mode = "" + application = "" + End Sub + Private Sub file_skimmer_Load(sender As Object, e As EventArgs) Handles Me.Load topmenu.Renderer = New basicwm_renderer() tools.Renderer = New basicwm_renderer() @@ -199,6 +208,7 @@ Me.Close() Case "skin_loader" saveskin(currentdir + "\" + txtfilename.Text + ".bsk") + Me.Close() End Select End If Else |