Wie geht das einfacher, Schleife doppelt

Holger · 1970-01-01T00:00:00+00:00

Hallo, ich habe zwei Variablen für Dateinamen. Ich prüfe nun ab ob es diese schon gibt, wenn ja, werden diese gelöscht. Da ich zwei Variablen habe, muss ich das zweimal machen. Oft bin ich mit diesem Problem konfrontiert, dass ich unnötig oft CodeWiederholungen habe. Kann man das nicht besser machen? Da es String Variablen sind, weiß ich nicht wie ich es besser machen kann, sonst hätte ich an ein array gedacht. Ihr seht, ich bin gerade an dem Punkt des gefährlichej ViertelWissens angelangt. strDateiname sieht so aus (immer der komplette Pfad): C:\juhu\juhu.xls Sub kompliziert If Dir(strDateiname1) "" Then Kill strDateiname1 End If If Dir(strDateiname2) "" Then Kill strDateiname2 End If End Sub

Hallo Holger,
wenn Deine Dateinamen in einzelnen Variablen gespeichert sind, bleibt dir nichts anderes übrig, als die von Dir gepostete Methode zu verwenden.
Sinnvoller (bei vielen Dateinamen) wäre es jedoch (da bestätigt sich Dein Verdacht), dafür eine ARRAY-Variable zu verwenden. Hier ein Beispiel (4 Dateinamen im Array) :

Sub Jektiv()
Dim strDateien, lngT As Long
strDateien = Array("juhu.xls", "oweh.xls", "naja.xls", "aha.xls")
Const strpfad = "C:\Juhu\" 'Pfad bitte mit "\" am Ende eingeben !
For lngT = LBound(strDateien) To UBound(strDateien)
If Dir(strpfad & strDateiname(lngT))  "" Then _
Kill strpfad & strDateiname(lngT)
Next
End Sub

Ich hoffe, dein Wissen ist nun von ¼ auf ⅜ angestiegen ;-)
Gruß, NoNet
gegen 6:4 n. 11m-Schießen

Hallo Holger,
oder man koennte eine Klasse bilden, die das alles macht.
Gruss dan, cz.
Ein simples Beispiel:
' -------------------------------------------------------------
' Standart Module Code
' -------------------------------------------------------------
Option Explicit
' datei manager deklarieren
Private dateiNamen As DateiNamenManager

Public Sub Main()
On Error GoTo FinallyMain
' instance bilden
Set dateiNamen = New DateiNamenManager
' datei namem zugeben
dateiNamen.AddDateiName ("C:\juhu\juhu.xls")
dateiNamen.AddDateiName ("C:\juhu\juhu2.xls")
dateiNamen.AddDateiName ("C:\juhu\juhu3.xls")
Dim i As Variant
i = dateiNamen.DateiName(1)
i = dateiNamen.DateiName(2)
i = dateiNamen.DateiName(3)
i = dateiNamen.DateiName(4) ' error here
' dann alle datei namen pruefen lassen
dateiNamen.Pruefen
FinallyMain:
If (Err.Number  0) Then MsgBox Err.Description, vbCritical
' instance auf Nothing
Set dateiNamen = Nothing
End Sub

' -------------------------------------------------------------
' Class Module Code, Name DateiNamenManager
' -------------------------------------------------------------
Private dateiNamen As Collection

Private Sub Class_Initialize()
Set dateiNamen = New Collection
End Sub

Public Property Get DateiName(index As Integer) As String
If (index >= 1 And index DateiName = dateiNamen.Item(index)
Else
Err.Raise vbObjectError + 1000, "DateiNamenManager.DateiName", "Index out of range"
End If
End Property

Public Sub AddDateiName(ByVal newDateiName As String)
dateiNamen.Add Item:=newDateiName, Key:="DateiName_" & dateiNamen.Count
End Sub

Public Sub Pruefen()
Dim dateiNamenItem As Variant
For Each dateiNamenItem In dateiNamen
If Dir(dateiNamenItem)  "" Then
Kill dateiNamenItem
End If
Next dateiNamenItem
End Sub

Wie geht das einfacher, Schleife doppelt

Forumthread: Wie geht das einfacher, Schleife doppelt

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Wie geht das einfacher, Schleife doppelt

Forumthread: Wie geht das einfacher, Schleife doppelt

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread