1.66

[WinMPQ.git] / FoldName.frm

VERSION 4.00\r
Begin VB.Form FoldName \r
   BorderStyle     =   3  'Fixed Dialog\r
   Caption         =   "Folder name..."\r
   ClientHeight    =   1935\r
   ClientLeft      =   1995\r
   ClientTop       =   2430\r
   ClientWidth     =   4575\r
   Height          =   2340\r
   Icon            =   "FoldName.frx":0000\r
   Left            =   1935\r
   LinkTopic       =   "Form1"\r
   MaxButton       =   0   'False\r
   MinButton       =   0   'False\r
   ScaleHeight     =   1935\r
   ScaleWidth      =   4575\r
   ShowInTaskbar   =   0   'False\r
   Top             =   2085\r
   Width           =   4695\r
   Begin VB.TextBox Text1 \r
      Height          =   285\r
      Left            =   120\r
      TabIndex        =   1\r
      Top             =   1080\r
      Width           =   4335\r
   End\r
   Begin VB.CommandButton Command2 \r
      Cancel          =   -1  'True\r
      Caption         =   "&Cancel"\r
      Height          =   375\r
      Left            =   2640\r
      TabIndex        =   3\r
      Top             =   1440\r
      Width           =   1335\r
   End\r
   Begin VB.CommandButton Command1 \r
      Caption         =   "O&K"\r
      Default         =   -1  'True\r
      Height          =   375\r
      Left            =   600\r
      TabIndex        =   2\r
      Top             =   1440\r
      Width           =   1335\r
   End\r
   Begin VB.Label Label2 \r
      Caption         =   "Example:  If ""title.wav"" is the original filename, and you type ""music\"" the file will become ""music\title.wav"""\r
      Height          =   495\r
      Left            =   120\r
      TabIndex        =   4\r
      Top             =   600\r
      Width           =   4335\r
      WordWrap        =   -1  'True\r
   End\r
   Begin VB.Label Label1 \r
      Caption         =   "The text in the box below will be put at the beginnings of the names of every file you selected."\r
      Height          =   510\r
      Left            =   120\r
      TabIndex        =   0\r
      Top             =   120\r
      Width           =   4335\r
      WordWrap        =   -1  'True\r
   End\r
End\r
Attribute VB_Name = "FoldName"\r
Attribute VB_Creatable = False\r
Attribute VB_Exposed = False\r
Option Explicit\r
Private Sub Command1_Click()\r
AddFolderName = Text1\r
Unload Me\r
End Sub\r
Private Sub Command2_Click()\r
AddFolderName = Chr(0) + Chr(255) + Chr(127) + Chr(128)\r
Unload Me\r
End Sub\r
Private Sub Form_Load()\r
Left = MpqEx.Left + 330 * 2\r
If Left < 0 Then Left = 0\r
If Left + Width > Screen.Width Then Left = Screen.Width - Width\r
Top = MpqEx.Top + 315 * 2\r
If Top < 0 Then Top = 0\r
If Top + Height > Screen.Height Then Top = Screen.Height - Height\r
Text1 = AddFolderName\r
End Sub\r