Arbeiten mit Dateien - Versionsgeschichte

Pwania am 28. Januar 2023 um 00:34 Uhr

2023-01-28T00:34:21Z

← Nächstältere Version		Version vom 28. Januar 2023, 00:34 Uhr
Zeile 1:		Zeile 1:
			[[Category:vba-wiki]]
	== Dateien kopieren, umbenennen, löschen ==		== Dateien kopieren, umbenennen, löschen ==

Pwania: /* Beliebige Datei oder mit bestimmter Endung öffnen */

2019-06-21T09:51:51Z

Beliebige Datei oder mit bestimmter Endung öffnen

← Nächstältere Version		Version vom 21. Juni 2019, 09:51 Uhr
Zeile 105:		Zeile 105:
	<span style="Color:blue"> Set </span>dlg <span style="Color:gray">=</span> Application<span style="Color:gray">.</span>FileDialog<span style="Color:gray">(</span>msoFileDialogFilePicker<span style="Color:gray">)</span>		<span style="Color:blue"> Set </span>dlg <span style="Color:gray">=</span> Application<span style="Color:gray">.</span>FileDialog<span style="Color:gray">(</span>msoFileDialogFilePicker<span style="Color:gray">)</span>
	dlg<span style="Color:gray">.</span>Title <span style="Color:gray">=</span> <span style="Color:gray">"Datei wählen"</span>		dlg<span style="Color:gray">.</span>Title <span style="Color:gray">=</span> <span style="Color:gray">"Datei wählen"</span>
	dlg<span style="Color:gray">.</span>InitialFileName <span style="Color:gray">=</span> <span style="Color:gray">"C:\temp\"</span> <span style="Color:green">' Wenn ~~nur ein Pfad~~ angegeben wird, ~~wird hiermit begonnen~~</span>		dlg<span style="Color:gray">.</span>InitialFileName <span style="Color:gray">=</span> <span style="Color:gray">"C:\temp\"</span> <span style="Color:green">' Wenn keine Datei angegeben wird, öffnet der Dialog in diesem Verzeichnis</span>
	dlg<span style="Color:gray">.</span>AllowMultiSelect <span style="Color:gray">=</span><span style="Color:blue"> False</span>		dlg<span style="Color:gray">.</span>AllowMultiSelect <span style="Color:gray">=</span><span style="Color:blue"> False</span>
	<span style="Color:green">' Eigene Dateifilter verwenden (Dateiendung vorgeben):</span>		<span style="Color:green">' Eigene Dateifilter verwenden (Dateiendung vorgeben):</span>

Pwania: /* Verzeichnis bestimmen */

2019-06-21T09:51:04Z

Verzeichnis bestimmen

← Nächstältere Version		Version vom 21. Juni 2019, 09:51 Uhr
Zeile 120:		Zeile 120:
	=== Verzeichnis bestimmen ===		=== Verzeichnis bestimmen ===

	Public Function BrowseToPath() As String		<span style="Color:blue"> Public Function </span>BrowseToPath<span style="Color:gray">()</span><span style="Color:blue"> As String</span>
	Dim dlg As FileDialog		<span style="Color:blue"> Dim </span>dlg<span style="Color:blue"> As </span>FileDialog

	Set dlg = Application.FileDialog(msoFileDialogFolderPicker)		<span style="Color:blue"> Set </span>dlg <span style="Color:gray">=</span> Application<span style="Color:gray">.</span>FileDialog<span style="Color:gray">(</span>msoFileDialogFolderPicker<span style="Color:gray">)</span>
	dlg.Title = "Zielverzeichnis wählen"		dlg<span style="Color:gray">.</span>Title <span style="Color:gray">=</span> <span style="Color:gray">"Zielverzeichnis wählen"</span>
	dlg.InitialFileName = "C:\temp\"		dlg<span style="Color:gray">.</span>InitialFileName <span style="Color:gray">=</span> <span style="Color:gray">"C:\temp\"</span>
	dlg.Show		dlg<span style="Color:gray">.</span>Show
	If dlg.SelectedItems.Count > 0 Then		<span style="Color:blue"> If </span>dlg<span style="Color:gray">.</span>SelectedItems<span style="Color:gray">.</span>Count <span style="Color:gray">></span> <span style="Color:gray">0</span><span style="Color:blue"> Then</span>
	BrowseToPath = dlg.SelectedItems.Item(1)		BrowseToPath <span style="Color:gray">=</span> dlg<span style="Color:gray">.</span>SelectedItems<span style="Color:gray">.</span>Item<span style="Color:gray">(1)</span>
	End If		<span style="Color:blue"> End If
	End Function		End Function</span>

Pwania: /* Beliebige Datei oder mit bestimmter Endung öffnen */

2019-06-21T09:50:27Z

Beliebige Datei oder mit bestimmter Endung öffnen

← Nächstältere Version		Version vom 21. Juni 2019, 09:50 Uhr
Zeile 107:		Zeile 107:
	dlg<span style="Color:gray">.</span>InitialFileName <span style="Color:gray">=</span> <span style="Color:gray">"C:\temp\"</span> <span style="Color:green">' Wenn nur ein Pfad angegeben wird, wird hiermit begonnen</span>		dlg<span style="Color:gray">.</span>InitialFileName <span style="Color:gray">=</span> <span style="Color:gray">"C:\temp\"</span> <span style="Color:green">' Wenn nur ein Pfad angegeben wird, wird hiermit begonnen</span>
	dlg<span style="Color:gray">.</span>AllowMultiSelect <span style="Color:gray">=</span><span style="Color:blue"> False</span>		dlg<span style="Color:gray">.</span>AllowMultiSelect <span style="Color:gray">=</span><span style="Color:blue"> False</span>
	<span style="Color:green">' Eigene Dateifilter verwenden:</span>		<span style="Color:green">' Eigene Dateifilter verwenden (Dateiendung vorgeben):</span>
	dlg<span style="Color:gray">.</span>Filters<span style="Color:gray">.</span>Clear		dlg<span style="Color:gray">.</span>Filters<span style="Color:gray">.</span>Clear
	dlg<span style="Color:gray">.</span>Filters<span style="Color:gray">.</span>Add <span style="Color:gray">"Meine Dateien",</span> <span style="Color:gray">"*.pwf"</span>		dlg<span style="Color:gray">.</span>Filters<span style="Color:gray">.</span>Add <span style="Color:gray">"Meine Dateien",</span> <span style="Color:gray">"*.pwf"</span>

Pwania: /* Beliebige Datei öffnen */

2019-06-21T09:50:09Z

Beliebige Datei öffnen

← Nächstältere Version		Version vom 21. Juni 2019, 09:50 Uhr
Zeile 98:		Zeile 98:
	== Eingebaute Datei-Dialoge ==		== Eingebaute Datei-Dialoge ==

	=== Beliebige Datei öffnen ===		=== Beliebige Datei oder mit bestimmter Endung öffnen ===

	Public Function BrowseToFile() As String		<span style="Color:blue"> Public Function </span>BrowseToFile<span style="Color:gray">()</span><span style="Color:blue"> As String</span>
	Dim dlg As FileDialog		<span style="Color:blue"> Dim </span>dlg<span style="Color:blue"> As </span>FileDialog

	Set dlg = Application.FileDialog(msoFileDialogFilePicker)		<span style="Color:blue"> Set </span>dlg <span style="Color:gray">=</span> Application<span style="Color:gray">.</span>FileDialog<span style="Color:gray">(</span>msoFileDialogFilePicker<span style="Color:gray">)</span>
	dlg.Title = "Datei wählen"		dlg<span style="Color:gray">.</span>Title <span style="Color:gray">=</span> <span style="Color:gray">"Datei wählen"</span>
	dlg.InitialFileName = "C:\temp\" <span style="Color:green">' Wenn nur ein Pfad angegeben wird, wird hiermit begonnen</span>		dlg<span style="Color:gray">.</span>InitialFileName <span style="Color:gray">=</span> <span style="Color:gray">"C:\temp\"</span> <span style="Color:green">' Wenn nur ein Pfad angegeben wird, wird hiermit begonnen</span>
	dlg.AllowMultiSelect = False		dlg<span style="Color:gray">.</span>AllowMultiSelect <span style="Color:gray">=</span><span style="Color:blue"> False</span>
	<span style="Color:~~Green~~">' Eigene Dateifilter verwenden:</span>		<span style="Color:green">' Eigene Dateifilter verwenden:</span>
	dlg.Filters.Clear		dlg<span style="Color:gray">.</span>Filters<span style="Color:gray">.</span>Clear
	dlg.Filters.Add "Meine Dateien", "*.pwf"		dlg<span style="Color:gray">.</span>Filters<span style="Color:gray">.</span>Add <span style="Color:gray">"Meine Dateien",</span> <span style="Color:gray">"*.pwf"</span>
	dlg.Filters.Add "Alle Dateien", "."		dlg<span style="Color:gray">.</span>Filters<span style="Color:gray">.</span>Add <span style="Color:gray">"Alle Dateien",</span> <span style="Color:gray">"."</span>
	dlg.Show		dlg<span style="Color:gray">.</span>Show
	If dlg.SelectedItems.Count > 0 Then		<span style="Color:blue"> If </span>dlg<span style="Color:gray">.</span>SelectedItems<span style="Color:gray">.</span>Count <span style="Color:gray">></span> <span style="Color:gray">0</span><span style="Color:blue"> Then</span>
	BrowseToFile = dlg.SelectedItems.Item(1)		BrowseToFile <span style="Color:gray">=</span> dlg<span style="Color:gray">.</span>SelectedItems<span style="Color:gray">.</span>Item<span style="Color:gray">(1)</span>
	End If		<span style="Color:blue"> End If</span>
	Set dlg = Nothing		<span style="Color:blue"> Set </span>dlg <span style="Color:gray">=</span> Nothing
	End Function		<span style="Color:blue"> End Function</span>

	=== Verzeichnis bestimmen ===		=== Verzeichnis bestimmen ===

Pwania: /* Textdateien ein- und auslesen */

2019-06-21T09:49:07Z

Textdateien ein- und auslesen

← Nächstältere Version		Version vom 21. Juni 2019, 09:49 Uhr
Zeile 70:		Zeile 70:
	== Textdateien ein- und auslesen ==		== Textdateien ein- und auslesen ==

	Public Sub WriteLineIntoTextFile(ByVal strFile As String, ByVal strLine As String)		<span style="Color:blue"> Public Sub </span>WriteLineIntoTextFile<span style="Color:gray">(</span><span style="Color:blue">ByVal </span>strFile<span style="Color:blue"> As String</span><span style="Color:gray">,</span><span style="Color:blue"> ByVal </span>strLine<span style="Color:blue"> As String</span><span style="Color:gray">)</span>
	Dim lngFile As Long		<span style="Color:blue"> Dim </span>lngFile<span style="Color:blue"> As Long</span>

	lngFile = FreeFile		lngFile <span style="Color:gray">=</span> FreeFile
	Open strFile For Output As #lngFile		Open strFile<span style="Color:blue"> For </span>Output<span style="Color:blue"> As </span><span style="Color:gray">#</span>lngFile
	Print #lngFile, strLine		Print <span style="Color:gray">#</span>lngFile<span style="Color:gray">,</span> strLine
	Close #lngFile		Close <span style="Color:gray">#</span>lngFile
	End Sub		<span style="Color:blue"> End Sub</span>

			<span style="Color:blue"> Public Function </span>ReadFirstLineFromTextFile<span style="Color:gray">(</span><span style="Color:blue">ByVal </span>strFile<span style="Color:blue"> As String</span><span style="Color:gray">)</span><span style="Color:blue"> As String</span>
			<span style="Color:blue"> Dim </span>strText<span style="Color:blue"> As String</span>
			<span style="Color:blue"> Dim </span>lngFile<span style="Color:blue"> As Long</span>

			lngFile <span style="Color:gray">=</span> FreeFile
			Open strFile<span style="Color:blue"> For </span>Input<span style="Color:blue"> As </span><span style="Color:gray">#</span>lngFile
			Input <span style="Color:gray">#</span>lngFile<span style="Color:gray">,</span> strText
			Close <span style="Color:gray">#</span>lngFile
			ReadFirstLineFromTextFile <span style="Color:gray">=</span> strText
			<span style="Color:blue"> End Function</span>

	~~Public Function ReadFirstLineFromTextFile(ByVal strFile As String) As String~~		<span style="Color:blue"> Private Sub </span>Test<span style="Color:gray">()</span>
	~~Dim strText As String~~
	~~Dim lngFile As Long~~		WriteLineIntoTextFile <span style="Color:gray">"c:\Temp\Hallo.txt",</span> <span style="Color:gray">"Hallo"</span>
			Debug<span style="Color:gray">.</span>Print ReadFirstLineFromTextFile<span style="Color:gray">("c:\Temp\Hallo.txt")</span>
	~~lngFile~~ = ~~FreeFile~~		<span style="Color:blue"> End Sub</span>
	~~Open strFile For Input As #lngFile~~
	~~Input #lngFile, strText~~
	~~Close #lngFile~~
	~~ReadFirstLineFromTextFile = strText~~
	~~End Function~~


	Private Sub Test()

	WriteLineIntoTextFile "c:\Temp\Hallo.txt", "Hallo"
	Debug.Print ReadFirstLineFromTextFile("c:\Temp\Hallo.txt")
	End Sub

	== Eingebaute Datei-Dialoge ==		== Eingebaute Datei-Dialoge ==

Pwania: /* Dateien in einem Verzeichnis finden */

2019-06-21T09:47:55Z

Dateien in einem Verzeichnis finden

← Nächstältere Version		Version vom 21. Juni 2019, 09:47 Uhr
Zeile 41:		Zeile 41:

	In diesem Beispiel wird die 'Dir'-Funktion wie folgt eingesetzt:		In diesem Beispiel wird die 'Dir'-Funktion wie folgt eingesetzt:
	- Beim ersten Aufruf wird ein Pfad angegeben, der mithilfe des '*'-Platzhalters die Suche nach einer entsprechenden Datei einleitet.		* Beim ersten Aufruf wird ein Pfad angegeben, der mithilfe des '*'-Platzhalters die Suche nach einer entsprechenden Datei einleitet.
	- Alle weiteren Aufrufe (in der Do-Schleife) werden ohne Übergabeparameter durchgeführt, wodurch die 'Dir'-Funktion weitere Treffer zu den ursprünglichen Suchkriterien liefert.		* Alle weiteren Aufrufe (in der Do-Schleife) werden ohne Übergabeparameter durchgeführt, wodurch die 'Dir'-Funktion weitere Treffer zu den ursprünglichen Suchkriterien liefert.
	- Auch hier gilt: Können keine (weiteren) Dateien passend zu den Suchkriterien gefunden werden, liefert die 'Dir'-Funktion eine leere Zeichenkette zurück ("").		* Auch hier gilt: Können keine (weiteren) Dateien passend zu den Suchkriterien gefunden werden, liefert die 'Dir'-Funktion eine leere Zeichenkette zurück ("").

	Public Function FilesInFolder(ByVal strPath As String, ByVal strFileExtension As String) As Collection		<span style="Color:blue"> Public Function </span>FilesInFolder<span style="Color:gray">(</span><span style="Color:blue">ByVal </span>strPath<span style="Color:blue"> As String</span><span style="Color:gray">,</span><span style="Color:blue"> ByVal </span>strFileExtension<span style="Color:blue"> As String</span><span style="Color:gray">)</span><span style="Color:blue"> As </span>Collection
	Dim strFile As String		<span style="Color:blue"> Dim </span>strFile<span style="Color:blue"> As String</span>

	If Right(strPath, 1) <> "\" Then		<span style="Color:blue"> If </span>Right<span style="Color:gray">(</span>strPath<span style="Color:gray">,</span> <span style="Color:gray">1)</span> <span style="Color:gray"><></span> <span style="Color:gray">"\"</span><span style="Color:blue"> Then</span>
	strPath = strPath & "\"		strPath <span style="Color:gray">=</span> strPath & <span style="Color:gray">"\"</span>
	End If		<span style="Color:blue"> End If</span>

	Set FilesInFolder = New Collection		<span style="Color:blue"> Set </span>FilesInFolder <span style="Color:gray">=</span><span style="Color:blue"> New </span>Collection

	strFile = Dir(strPath & "*." & strFileExtension)		strFile <span style="Color:gray">=</span> Dir<span style="Color:gray">(</span>strPath & <span style="Color:gray">"*."</span> & strFileExtension<span style="Color:gray">)</span>
	Do Until strFile = ""		<span style="Color:blue"> Do Until </span>strFile <span style="Color:gray">=</span> <span style="Color:gray">""</span>
	FilesInFolder.Add strPath & strFile		FilesInFolder<span style="Color:gray">.</span>Add strPath & strFile
	strFile = Dir		strFile <span style="Color:gray">=</span> Dir
	Loop		<span style="Color:blue"> Loop
	End Function		End Function</span>

	Sub TestFilesInFolder()		<span style="Color:blue"> Sub </span>TestFilesInFolder<span style="Color:gray">()</span>
	Dim colFiles As Collection		<span style="Color:blue"> Dim </span>colFiles<span style="Color:blue"> As </span>Collection

	Set colFiles = FilesInFolder("c:\temp", "csv")		<span style="Color:blue"> Set </span>colFiles <span style="Color:gray">=</span> FilesInFolder<span style="Color:gray">("c:\temp",</span> <span style="Color:gray">"csv")</span>
	Debug.Print colFiles.Count		Debug<span style="Color:gray">.</span>Print colFiles<span style="Color:gray">.</span>Count
	End Sub		<span style="Color:blue"> End Sub</span>

	== Textdateien ein- und auslesen ==		== Textdateien ein- und auslesen ==

Pwania: /* Existenz prüfen */

2019-06-21T09:46:52Z

Existenz prüfen

← Nächstältere Version		Version vom 21. Juni 2019, 09:46 Uhr
Zeile 31:		Zeile 31:
	==== Existenz prüfen ====		==== Existenz prüfen ====

	If Dir("c:\temp\test.txt") = "" Then		<span style="Color:blue"> If </span>Dir<span style="Color:gray">("c:\temp\test.txt")</span> <span style="Color:gray">=</span> <span style="Color:gray">""</span><span style="Color:blue"> Then </span>
	MsgBox "Die Datei konnte leider nicht gefunden werden!"		MsgBox <span style="Color:gray">"Die Datei konnte leider nicht gefunden werden!"</span>
	End If		<span style="Color:blue"> End If</span>

	- Wenn die angegebene Datei existiert, wird deren vollständiger Pfad zurückgegeben.		* Wenn die angegebene Datei existiert, wird deren vollständiger Pfad zurückgegeben.
	- Wenn die Datei nicht gefunden werden konnte, wird eine leere Zeichenkette ("") zurückgegeben.		* Wenn die Datei nicht gefunden werden konnte, wird eine leere Zeichenkette ("") zurückgegeben.

	==== Dateien in einem Verzeichnis finden ====		==== Dateien in einem Verzeichnis finden ====

Pwania: /* FileAttr */

2019-06-21T09:45:54Z

FileAttr

← Nächstältere Version		Version vom 21. Juni 2019, 09:45 Uhr
Zeile 21:		Zeile 21:


	Open "c:\Temp\Hallo.txt" For Output As #1		Open <span style="Color:gray">"c:\Temp\Hallo.txt"</span><span style="Color:blue"> For </span>Output<span style="Color:blue"> As </span><span style="Color:gray">#1</span>
	Debug.Print FileAttr(1) ' ergibt 2 für 'Output'		Debug<span style="Color:gray">.</span>Print FileAttr<span style="Color:gray">(1)</span> <span style="Color:green">' ergibt 2 für 'Output'</span>
	Close #1		Close <span style="Color:gray">#1</span>

	=== Dir ===		=== Dir ===

Pwania am 10. Oktober 2018 um 16:32 Uhr

2018-10-10T16:32:28Z

Änderungen zeigen