Current News
Archived News
Search News
Discussion Forum


Old Forum
Install Programs More Downloads...
Troubleshooting
Source Code
Format Specs.
Misc. Information
Non-SF Stuff
Links




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