Array leeren
13.01.2010 19:03:16
Jürgen
Hallo liebe Helfer,
ich fülle ein Array mit:
Public myArFiles() As String
'zuerst Daten in einem Array sammeln
Sub Dateien_Sammeln()
Dim sFile As String
Dim i As Integer
'hier den Pfad angeben, achte auf abschließen mit \
Const strPfad As String = "G:\Anlagen ohne IWS\"
sFile = Dir(strPfad & "*.xls")
Do While sFile <> ""
ReDim Preserve myArFiles(i)
myArFiles(i) = strPfad & sFile
i = i + 1
sFile = Dir
Loop
wie kann ich dieses Array (myArfiles) wieder komplett leeren ?
Gruß Jürgen
Anzeige