Commit | Line | Data |
0d212c7b |
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 |
0d212c7b |
68 | Private Sub Command1_Click() |
69 | AddFolderName = Text1 |
70 | Unload Me |
71 | End Sub |
72 | Private Sub Command2_Click() |
62046253 |
73 | AddFolderName = Chr(0) + Chr(255) + Chr(127) + Chr(128) |
0d212c7b |
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 |