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 Small banner for links to this site: |
diff --git a/FoldName.frm b/FoldName.frm
--- a/FoldName.frm
+++ b/FoldName.frm
-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 = ""
-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
|