FoldName.frm

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