Visual Basic World - Programmierung und BeispieleVisual Basic World - Tipps und TutorialsVisual Basic World - Source-Code und Forum

<leer>

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

ANZEIGE <leer>
<leer> Aktuelle Seite Back To Top
Druckansicht | Feedback | Favoriten
Copyright © Visual Basic World, 2000-2014 | Kontakt | Impressum

Visual Basic World @ Twitter

Folgen Sie Visual Basic World!

Visual Basic World @ Twitter
Wenn Ihnen Visual Basic World gefällt, dann folgen Sie uns doch bei Twitter (@visualbasicwrld).
Vielen Dank!



Fragen & Forum

Wenn Sie offene Fragen zur Programmierung mit Visual Basic haben und in der Tipps & Tricks Sektion oder bei den Tutorials nicht fündig wurden, dann werfen Sie doch einen Blick ins Visual Basic World Forum.


Visual Basic World Forum

Im Forum erhalten Sie schnell Hilfe und finden eine Vielzahl an bereits beantworteten Fragen und Problemen.

Viel Vergnügen bei der Benutzung!


Unterstützen Sie VB-World!

Wenn Ihnen Visual Basic World gefällt, dann unterstützen Sie uns!



Das geht am einfachsten, indem Sie einen Link auf visualbasicworld.de setzen oder senden Sie doch folgende QR-Grafik an Ihre Freunde:

Visual Basic World

Außerdem würden wir uns sehr freuen, wenn Sie uns bei Twitter (@visualbasicwrld) folgen.
Vielen Dank!


Visual Basic World Relaunch

Nach einiger Zeit der Iniaktivität erstrahlt visualbasicworld.de mit frischem Design in neuem Glanze.

Dabei hat sich nicht nur optisch einiges getan, auch technisch setzt das neue Web-Layout Maßstäbe.

Im Hintergrund arbeitet unser Team zudem an der Aktualisierung, Erweiterung und Ergänzung des gesamten bisherigen Contents.


Visual Basic World Relaunch

Wenn Sie Fragen oder Anregungen zum neuen Design haben, so freuen wir uns über Ihr Feedback!

Schauen Sie also in Kürze wieder rein und empfehlen Sie Visual Basic World weiter.


Fotografie & Design

Fotograf in Mannheim und Heidelberg.