home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
code
/
cdspy
/
f_kopie.frm
< prev
next >
Wrap
Text File
|
1995-02-26
|
6KB
|
200 lines
VERSION 2.00
Begin Form F_Kopie
BorderStyle = 3 'Fixed Double
Caption = "Kopieren"
ClientHeight = 1950
ClientLeft = 3555
ClientTop = 3450
ClientWidth = 4320
Height = 2355
Left = 3495
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 130
ScaleMode = 3 'Pixel
ScaleWidth = 288
Top = 3105
Width = 4440
Begin CommandButton Cmd_OK
BackColor = &H00C0C0C0&
Caption = "OK"
Default = -1 'True
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 350
Left = 180
TabIndex = 2
Top = 1500
Width = 1320
End
Begin CheckBox pchk_Alles
BackColor = &H00C0C0C0&
Caption = "Alles"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 240
Left = 2940
TabIndex = 4
Top = 900
Width = 1215
End
Begin FileListBox Fil_Alles
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 270
Left = 180
TabIndex = 5
Top = 810
Visible = 0 'False
Width = 2085
End
Begin CommandButton Cmd_Abbruch
BackColor = &H00C0C0C0&
Cancel = -1 'True
Caption = "Abbruch"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 350
Left = 1620
TabIndex = 3
Top = 1500
Width = 1320
End
Begin TextBox Txt_Zielverzeichnis
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 360
Left = 180
MaxLength = 128
TabIndex = 1
Top = 420
Width = 3975
End
Begin Line Line1
X1 = 12
X2 = 276
Y1 = 88
Y2 = 88
End
Begin Label Label1
BackStyle = 0 'Transparent
Caption = "Zielverzeichnis:"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Left = 180
TabIndex = 0
Top = 160
Width = 1815
End
End
Option Explicit
Option Compare Text
Sub Cmd_Abbruch_Click ()
G_CopyFiles = ""
Unload Me
End Sub
Sub Cmd_OK_Click ()
Dim L_Res%
If Trim$(Txt_Zielverzeichnis) = "" Then
MsgBox "Geben Sie bitte das Zielverzeichnis ein!", 48, "Fehler"
Exit Sub
End If
L_Res% = FM_CreateDirectory((Txt_Zielverzeichnis))
If L_Res% = 2 Then
L_Res% = MsgBox("Das Zielverzeichnis besteht bereits! Eventuell werden darin enthaltene Dateien ⁿberschrieben. Wollen Sie trotzdem weiterfahren?", 36, "Warnung")
If L_Res% <> 6 Then
Exit Sub
End If
L_Res% = True
End If
If L_Res% Then
G_CopyFiles$ = FM_Verz$(GM_DB.Verzeichnis$) & "," & FM_Verz$((Txt_Zielverzeichnis)) & "," & G_CopyFiles$
End If
Unload Me
End Sub
Sub Command3_Click ()
F_Kopie.Tag = "OK"
Me.Hide
End Sub
Sub Form_Load ()
Dim sDefaultVerzeichnis As String
Me.Move (screen.Width - Me.Width) / 2, (screen.Height - Me.Height) / 3
PChk_Alles.Value = 1
PM_show3d Me
' ** Kurt
' Lesen Default verzeichnis
P_Show3dObjectPixel Me, Txt_Zielverzeichnis, 0
P_Show3dObjectPixel Me, PChk_Alles, 1
Txt_Zielverzeichnis = "C:" & FM_Verz$(GM_DB.Verzeichnis$)
End Sub
Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then
G_CopyFiles = ""
End If
End Sub
Sub PChk_Alles_Click ()
Const LC_OFFSET = 2
Dim X%, Y%, i%
If PChk_Alles.Value = 1 Then
'PChk_Alles.Tag = Not (Val(PChk_Alles.Tag))
' If Val(PChk_Alles.Tag) Then
Fil_Alles.Path = GM_DB.Verzeichnis$
Fil_Alles.Refresh
G_CopyFiles = ""
For i% = 0 To Fil_Alles.ListCount - 1
G_CopyFiles = G_CopyFiles + Fil_Alles.List(i%) + ","
Next i%
Else
G_CopyFiles = ""
F_Auswahl.Show 1
If G_CopyFiles = "" Then
PChk_Alles.Value = 1
End If
End If
End Sub
Sub Txt_Zielverzeichnis_GotFocus ()
If FM_GotFocusON() <> ON_MOUSE Then
Txt_Zielverzeichnis.SelStart = 0
Txt_Zielverzeichnis.SelLength = Len(Txt_Zielverzeichnis)
End If
End Sub