blob: 12dbf04471ba61e17632f47bbe760e691fd9d85a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
Public Class DockEngine
Public docktop As Integer
Public topbottom As String
Dim allLines As List(Of String) = New List(Of String)
Public Function ReadLine(lineNumber As Integer, lines As List(Of String)) As String
Return lines(lineNumber - 1)
End Function
Public Sub readFile(ByVal file As String)
If My.Computer.FileSystem.FileExists(file) Then
allLines.Clear()
Dim reader As New System.IO.StreamReader(file)
Do While Not reader.EndOfStream
allLines.Add(reader.ReadLine())
Loop
reader.Close()
For Each item As String In allLines
Dim tileinfo() As String
tileinfo = item.Split("#")
DockWindow.createtile(tileinfo(0), tileinfo(1))
Next
Else
Dim filepath As String = file
If Not System.IO.File.Exists(filepath) Then
If Not My.Computer.FileSystem.DirectoryExists(Application.StartupPath + "\SoftwareData\ShiftDock") Then
My.Computer.FileSystem.CreateDirectory(Application.StartupPath + "\SoftwareData\ShiftDock")
End If
System.IO.File.Create(filepath).Dispose()
DockWindow.firststart = True
End If
End If
End Sub
Public Sub readConfFile(ByVal file As String)
If My.Computer.FileSystem.FileExists(file) Then
allLines.Clear()
Dim reader As New System.IO.StreamReader(file)
Do While Not reader.EndOfStream
allLines.Add(reader.ReadLine())
Loop
reader.Close()
docktop = allLines(0)
topbottom = allLines(1)
DockWindow.Top = docktop
Else
Dim filepath As String = file
If Not System.IO.File.Exists(filepath) Then
System.IO.File.Create(filepath).Dispose()
End If
End If
End Sub
Public Sub writeFile(ByVal path As String, color As String)
Dim file As System.IO.StreamWriter
file = My.Computer.FileSystem.OpenTextFileWriter(Application.StartupPath + "\SoftwareData\ShiftDock\tiles.dat", True)
file.WriteLine(path + "#" + color)
file.Close()
End Sub
Public Sub writeConfFile(ByVal top As String, updown As String)
My.Computer.FileSystem.DeleteFile(Application.StartupPath + "\SoftwareData\ShiftDock\conf.dat")
Dim filepath As String = Application.StartupPath + "\SoftwareData\ShiftDock\conf.dat"
If Not System.IO.File.Exists(filepath) Then
System.IO.File.Create(filepath).Dispose()
End If
Dim file As System.IO.StreamWriter
file = My.Computer.FileSystem.OpenTextFileWriter(Application.StartupPath + "\SoftwareData\ShiftDock\conf.dat", True)
file.WriteLine(top)
file.WriteLine(updown)
file.Close()
End Sub
End Class
|
