VBA-Zugriff auf das Dateisystem

Sub File_List()
Dim mypath, thename, msg, a End Sub

Function FileAttGet(ByVal Filename As String) As Integer
Dim i As Integer myerr: End Function

Function FileLengthGet(ByVal Filename As String) As Integer End Function

Function FileDaTimGet(ByVal Filename As String) As Variant End Function

MkDir "test123"

Kill "test.txt"
Kill "*.gif"

RmDir "demo"

Function MyDir() End Function

Sub Path_Show()
Dim myname, mypath End Sub

ChDir "C:\test"

ChDrive "D"

Function drv_exist(drv As String) End Function

Function dir_exist(dirpath As String) End Function

Function file_exist(filepath As String) End Function

Sub TextFileRead()
Dim InFileName, InputString As String
Dim i, FileNum As Integer
Dim MyTargetRange As Range End Sub

Sub TextFileWrite()
Dim OutPath, str As String
Dim i, j, fn As Integer
Dim MySourceRange As Range End Sub

Sub XML_Export()
Dim v, z, x As String
Dim i as Integer
Dim datarange As Range End Sub

Private Function str_to_utf8(ByVal s As String) As String
Dim c, utf As String End Function

Private Function chr_to_utf8(ByVal s As String) As String
Dim uc As Long
Dim c, utf As String End Function

Sub chart_objects_list() Dim msg As String
Dim co As ChartObject
Dim x As Variant End Sub

Sub chart_object_rename() Dim co As ChartObject
Dim myname As String End Sub

Sub chart_object_export() Dim co As ChartObject
Dim coname, myfn As String End Sub

Sub BinaryRead()
Dim InPath, str As String
Dim fn As Integer End Sub

Sub minidump(str As String)
Dim i, bn As Integer
Dim a, b, h, s As String End Sub

Sub BinaryWrite()
Dim OutPath, str As String
Dim i, fn As Integer End Sub

str$ = chr(10) & "A" & chr(13) & "usw"
Put #fn1, ,str$ For i = 1 To Len(str$) Next
str$ = String(6, " ")
Get #fn2, ,str$ i2% = 123%
Put #fn1, ,i2%
Get #fn2, ,i2% i4& = 123456&
Put #fn1, ,i4&
Get #fn2, ,i4& r4! = 123!
Put #fn1, , r4!
Get #fn2, , r4! r8# = 123#
Put #fn1, , r8#
Get #fn2, , r8#