FoldName.frm

   1 VERSION 4.00\r
   2 Begin VB.Form FoldName \r
   3    BorderStyle     =   3  'Fixed Dialog\r
   4    Caption         =   "Folder name..."\r
   5    ClientHeight    =   1935\r
   6    ClientLeft      =   1995\r
   7    ClientTop       =   2430\r
   8    ClientWidth     =   4575\r
   9    Height          =   2340\r
  10    Icon            =   "FoldName.frx":0000\r
  11    Left            =   1935\r
  12    LinkTopic       =   "Form1"\r
  13    MaxButton       =   0   'False\r
  14    MinButton       =   0   'False\r
  15    ScaleHeight     =   1935\r
  16    ScaleWidth      =   4575\r
  17    ShowInTaskbar   =   0   'False\r
  18    Top             =   2085\r
  19    Width           =   4695\r
  20    Begin VB.TextBox Text1 \r
  21       Height          =   285\r
  22       Left            =   120\r
  23       TabIndex        =   1\r
  24       Top             =   1080\r
  25       Width           =   4335\r
  26    End\r
  27    Begin VB.CommandButton Command2 \r
  28       Cancel          =   -1  'True\r
  29       Caption         =   "&Cancel"\r
  30       Height          =   375\r
  31       Left            =   2640\r
  32       TabIndex        =   3\r
  33       Top             =   1440\r
  34       Width           =   1335\r
  35    End\r
  36    Begin VB.CommandButton Command1 \r
  37       Caption         =   "O&K"\r
  38       Default         =   -1  'True\r
  39       Height          =   375\r
  40       Left            =   600\r
  41       TabIndex        =   2\r
  42       Top             =   1440\r
  43       Width           =   1335\r
  44    End\r
  45    Begin VB.Label Label2 \r
  46       Caption         =   "Example:  If ""title.wav"" is the original filename, and you type ""music\"" the file will become ""music\title.wav"""\r
  47       Height          =   495\r
  48       Left            =   120\r
  49       TabIndex        =   4\r
  50       Top             =   600\r
  51       Width           =   4335\r
  52       WordWrap        =   -1  'True\r
  53    End\r
  54    Begin VB.Label Label1 \r
  55       Caption         =   "The text in the box below will be put at the beginnings of the names of every file you selected."\r
  56       Height          =   510\r
  57       Left            =   120\r
  58       TabIndex        =   0\r
  59       Top             =   120\r
  60       Width           =   4335\r
  61       WordWrap        =   -1  'True\r
  62    End\r
  63 End\r
  64 Attribute VB_Name = "FoldName"\r
  65 Attribute VB_Creatable = False\r
  66 Attribute VB_Exposed = False\r
  67 Option Explicit\r
  68 Private Sub Command1_Click()\r
  69 AddFolderName = Text1\r
  70 Unload Me\r
  71 End Sub\r
  72 Private Sub Command2_Click()\r
  73 AddFolderName = Chr(0) + Chr(255) + Chr(127) + Chr(128)\r
  74 Unload Me\r
  75 End Sub\r
  76 Private Sub Form_Load()\r
  77 Left = MpqEx.Left + 330 * 2\r
  78 If Left < 0 Then Left = 0\r
  79 If Left + Width > Screen.Width Then Left = Screen.Width - Width\r
  80 Top = MpqEx.Top + 315 * 2\r
  81 If Top < 0 Then Top = 0\r
  82 If Top + Height > Screen.Height Then Top = Screen.Height - Height\r
  83 Text1 = AddFolderName\r
  84 End Sub\r