home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / HTML_Edito645723222002.psc / Form2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-03-20  |  5.1 KB  |  168 lines
  1. VERSION 5.00
  2. Begin VB.Form frmRename 
  3.    Caption         =   "Rename File"
  4.    ClientHeight    =   1695
  5.    ClientLeft      =   5820
  6.    ClientTop       =   4800
  7.    ClientWidth     =   4950
  8.    Icon            =   "Form2.frx":0000
  9.    LinkTopic       =   "Form2"
  10.    ScaleHeight     =   1695
  11.    ScaleWidth      =   4950
  12.    Begin VB.CommandButton Command3 
  13.       Caption         =   "&Rename"
  14.       BeginProperty Font 
  15.          Name            =   "Verdana"
  16.          Size            =   8.25
  17.          Charset         =   0
  18.          Weight          =   400
  19.          Underline       =   0   'False
  20.          Italic          =   0   'False
  21.          Strikethrough   =   0   'False
  22.       EndProperty
  23.       Height          =   375
  24.       Left            =   480
  25.       TabIndex        =   5
  26.       Top             =   960
  27.       Width           =   1215
  28.    End
  29.    Begin VB.CommandButton Command2 
  30.       Caption         =   "Clear"
  31.       BeginProperty Font 
  32.          Name            =   "Verdana"
  33.          Size            =   8.25
  34.          Charset         =   0
  35.          Weight          =   400
  36.          Underline       =   0   'False
  37.          Italic          =   0   'False
  38.          Strikethrough   =   0   'False
  39.       EndProperty
  40.       Height          =   375
  41.       Left            =   1800
  42.       TabIndex        =   4
  43.       Top             =   960
  44.       Width           =   1455
  45.    End
  46.    Begin VB.CommandButton Command1 
  47.       Caption         =   "&Cancel"
  48.       BeginProperty Font 
  49.          Name            =   "Verdana"
  50.          Size            =   8.25
  51.          Charset         =   0
  52.          Weight          =   400
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       Height          =   375
  58.       Left            =   3360
  59.       TabIndex        =   3
  60.       Top             =   960
  61.       Width           =   1455
  62.    End
  63.    Begin VB.ComboBox Combo1 
  64.       BeginProperty Font 
  65.          Name            =   "Tahoma"
  66.          Size            =   8.25
  67.          Charset         =   0
  68.          Weight          =   400
  69.          Underline       =   0   'False
  70.          Italic          =   0   'False
  71.          Strikethrough   =   0   'False
  72.       EndProperty
  73.       Height          =   315
  74.       ItemData        =   "Form2.frx":030A
  75.       Left            =   3600
  76.       List            =   "Form2.frx":0314
  77.       TabIndex        =   2
  78.       Text            =   ".html"
  79.       Top             =   120
  80.       Width           =   1095
  81.    End
  82.    Begin VB.TextBox Text1 
  83.       BeginProperty Font 
  84.          Name            =   "Tahoma"
  85.          Size            =   8.25
  86.          Charset         =   0
  87.          Weight          =   400
  88.          Underline       =   0   'False
  89.          Italic          =   0   'False
  90.          Strikethrough   =   0   'False
  91.       EndProperty
  92.       Height          =   285
  93.       Left            =   1560
  94.       TabIndex        =   1
  95.       Top             =   120
  96.       Width           =   1935
  97.    End
  98.    Begin VB.Label Label3 
  99.       BeginProperty Font 
  100.          Name            =   "Verdana"
  101.          Size            =   8.25
  102.          Charset         =   0
  103.          Weight          =   400
  104.          Underline       =   0   'False
  105.          Italic          =   0   'False
  106.          Strikethrough   =   0   'False
  107.       EndProperty
  108.       Height          =   255
  109.       Left            =   1800
  110.       TabIndex        =   7
  111.       Top             =   480
  112.       Width           =   5055
  113.    End
  114.    Begin VB.Label Label2 
  115.       Caption         =   "Current Name:"
  116.       BeginProperty Font 
  117.          Name            =   "Verdana"
  118.          Size            =   8.25
  119.          Charset         =   0
  120.          Weight          =   400
  121.          Underline       =   0   'False
  122.          Italic          =   0   'False
  123.          Strikethrough   =   0   'False
  124.       EndProperty
  125.       Height          =   255
  126.       Left            =   120
  127.       TabIndex        =   6
  128.       Top             =   480
  129.       Width           =   1455
  130.    End
  131.    Begin VB.Label Label1 
  132.       Caption         =   "New File Name"
  133.       BeginProperty Font 
  134.          Name            =   "Verdana"
  135.          Size            =   8.25
  136.          Charset         =   0
  137.          Weight          =   400
  138.          Underline       =   0   'False
  139.          Italic          =   0   'False
  140.          Strikethrough   =   0   'False
  141.       EndProperty
  142.       Height          =   255
  143.       Left            =   120
  144.       TabIndex        =   0
  145.       Top             =   120
  146.       Width           =   1935
  147.    End
  148. Attribute VB_Name = "frmRename"
  149. Attribute VB_GlobalNameSpace = False
  150. Attribute VB_Creatable = False
  151. Attribute VB_PredeclaredId = True
  152. Attribute VB_Exposed = False
  153. Private Sub Command1_Click()
  154. Unload Me
  155. End Sub
  156. Private Sub Command2_Click()
  157. Text1.Text = ""
  158. End Sub
  159. Private Sub Command3_Click()
  160. On Error Resume Next
  161. Name Label3.Caption As Form1.Dir1.Path & "\" & Text1.Text & Combo1.Text
  162. MsgBox "Your file has been renamed.", vbInformation, "Renamed"
  163. Unload Me
  164. End Sub
  165. Private Sub Form_Load()
  166. Label3.Caption = Form1.Dir1.Path & "\" & Form1.File1.filename
  167. End Sub
  168.