¬ Home » Tipps & Tricks » Tipp 049 Feedback | Druckansicht

Tipp 049: Dateioperationen mit Visual Basic Bordmitteln

Autor: Alexander Kopatz VB-Version: Visual Basic 6.0, Visual Basic .Net Download: Beispielprojekt Tipp-049

Beschreibung

Auch ohne Griff in die API-Trickkiste sind mit Visual Basic umfangreiche Dateioperationen möglich. So können Dateien zum Beispiel umbenannt, gelöscht oder verschoben werden. Auch das Ändern der Attribute ist möglich. Wie das im Einzelnen funktioniert, zeigt dieses Beispiel.

Zusatzinformationen

» FAQ 001: Wie kann man eine Datei umbenennen oder verschieben?

Quellcode

frmDateiAssi

CheckBox                 chkArchiv
CheckBox                 chkNurLesen
CheckBox                 chkSystem
CheckBox                 chkVersteckt
CommandButton            cmdAusführen
CommandButton            cmdDateiNameEigenschaft
CommandButton            cmdKopieQuelle
CommandButton            cmdKopieZiel
CommandButton            cmdLöschDateiName
CommandButton            cmdSchließen
CommandButton            cmdUmbenennenDateiQuelle
CommandButton            cmdUmbenennenDateiZiel
CommonDialog             cdlHaupt
Form                     frmDateiAssi
Frame                    grpAnweisung
Label                    lblNach
Label                    lblNach
Label                    lblVon
Label                    lblVon
OptionButton             optAnweisung
OptionButton             optAnweisung
OptionButton             optAnweisung
OptionButton             optAnweisung
TextBox                  txKopieQuelle
TextBox                  txtDateiEigenschaft
TextBox                  txtDateiLöschen
TextBox                  txtDateiUmbenennenQuelle
TextBox                  txtDateiUmbenennenZiel

' VISUAL BASIC WORLD
' ===========================================
' Das große Portal zum Thema Visual Basic.
'
' Wenn Ihnen dieser Source Code gefallen hat,
' dann empfehlen Sie Visual Basic World bitte
' weiter und/oder setzen Sie einen Link auf:
'
' http://www.visualbasicworld.de/
'
' Vernetzen Sie sich mit uns:
'
' http://twitter.com/visualbasicwrld


Option Explicit
 
Dim intAnweisung As Integer
 

 
 
Private Sub chkArchiv_GotFocus()
 
    Me.optAnweisung(3).Value = True
 
End Sub
 

 
 
Private Sub chkNurLesen_GotFocus()
 
    Me.optAnweisung(3).Value = True
 
End Sub
 

 
 
Private Sub chkSystem_GotFocus()
 
    Me.optAnweisung(3).Value = True
 
End Sub
 

 
 
Private Sub chkVersteckt_GotFocus()
 
    Me.optAnweisung(3).Value = True
 
End Sub
 

 
Private Sub cmdAusführen_Click()
 
    Dim bytEigenschaft As Byte
 
    Select Case intAnweisung
        Case 0      'Kopieren
            FileCopy Me.txKopieQuelle.Text, Me.txtKopieZiel.Text
 
        Case 1      'Löschen
            Kill Me.txtDateiLöschen.Text
 
        Case 2      'Umbenennen
            Name Me.txtDateiUmbenennenQuelle.Text As Me.txtDateiUmbenennenZiel.Text
 
        Case 3      'Eigenschaft
            If Me.chkArchiv Then bytEigenschaft = vbArchive
            If Me.chkNurLesen Then bytEigenschaft = bytEigenschaft + vbReadOnly
            If Me.chkSystem Then bytEigenschaft = bytEigenschaft + vbSystem
            If Me.chkVersteckt Then bytEigenschaft = bytEigenschaft + vbHidden
            SetAttr Me.txtDateiEigenschaft.Text, vbNormal + bytEigenschaft
 
    End Select
 
End Sub
 

 
Private Sub cmdDateiNameEigenschaft_Click()
 
    Me.cdlHaupt.ShowOpen
    Me.txtDateiEigenschaft.Text = Me.cdlHaupt.FileName
 
End Sub
 

 
Private Sub cmdDateiNameEigenschaft_GotFocus()
 
    Me.optAnweisung(3).Value = True
 
End Sub
 

 
Private Sub cmdKopieQuelle_Click()
 
    Me.cdlHaupt.ShowOpen
    Me.txKopieQuelle.Text = Me.cdlHaupt.FileName
 
End Sub
 

 
Private Sub cmdKopieQuelle_GotFocus()
 
    Me.optAnweisung(0).Value = True
 
End Sub
 

 
Private Sub cmdKopieZiel_Click()
 
    Me.cdlHaupt.ShowOpen
    Me.txtKopieZiel.Text = Me.cdlHaupt.FileName
 
End Sub
 

 
Private Sub cmdKopieZiel_GotFocus()
 
    Me.optAnweisung(0).Value = True
 
End Sub
 

 
Private Sub cmdLöschDateiName_Click()
 
    Me.cdlHaupt.ShowOpen
    Me.txtDateiLöschen.Text = Me.cdlHaupt.FileName
 
End Sub
 

 
Private Sub cmdLöschDateiName_GotFocus()
 
    Me.optAnweisung(1).Value = True
 
End Sub
 

 
Private Sub cmdSchließen_Click()
 
    Unload Me
 
End Sub
 

 
Private Sub cmdUmbenennenDateiQuelle_Click()
 
    Me.cdlHaupt.ShowOpen
    Me.txtDateiUmbenennenQuelle.Text = Me.cdlHaupt.FileName
 
End Sub
 

 
Private Sub cmdUmbenennenDateiQuelle_GotFocus()
 
    Me.optAnweisung(2).Value = True
 
End Sub
 

 
Private Sub cmdUmbenennenDateiZiel_Click()
 
    Me.cdlHaupt.ShowOpen
    Me.txtDateiUmbenennenZiel.Text = Me.cdlHaupt.FileName
 
End Sub
 

 
Private Sub cmdUmbenennenDateiZiel_GotFocus()
 
    Me.optAnweisung(2).Value = True
 
End Sub
 

 
Private Sub optAnweisung_Click(Index As Integer)
 
    intAnweisung = Index
 
End Sub
 

 
Private Sub txKopieQuelle_GotFocus()
 
    Me.optAnweisung(0).Value = True
 
End Sub
 

 
Private Sub txtDateiEigenschaft_GotFocus()
 
    Me.optAnweisung(3).Value = True
 
End Sub
 

 
Private Sub txtDateiLöschen_GotFocus()
 
    Me.optAnweisung(1).Value = True
 
End Sub
 

 
Private Sub txtDateiUmbenennenQuelle_GotFocus()
 
    Me.optAnweisung(2).Value = True
 
End Sub
 

 
Private Sub txtDateiUmbenennenZiel_Change()
 
    Me.optAnweisung(2).Value = True
 
End Sub
 

 
Private Sub txtDateiUmbenennenZiel_GotFocus()
 
    Me.optAnweisung(0).Value = True
 
End Sub
 

 
Private Sub txtKopieZiel_GotFocus()
 
    Me.optAnweisung(0).Value = True
 
End Sub