Programming Tool Box/SIMS_2.iso/code/cdspy/f_kopie.frm

Visual Basic Form | 1995-02-26 | 5.6 KB | 187 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
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