Fout Afvangen in Macro

[danvie]

Goedemorgen,

Ik heb een klein probleempje met een stukje script.
Ik wil graag in het script (dat zorg draagt voor het verplaatsen van bestanden) een regel toevoegen die eerst kijkt of het bestand ook daadwerkelijk bestaat.

Kan iemand mij hiermee helpen.

Sub Verplaats_Data()

Call Eerst_Sorteren

LSearchRow = 2
While Len(Range("A" & CStr(LSearchRow)).Value) > 0

Dim Welk_Bestand As Range
Dim Van_Welke_Locatie As Range
Dim Naar_Welke_Locatie As Range

Set Welk_Bestand = ActiveSheet.Range("$B$" & LSearchRow)
Set Van_Welke_Locatie = ActiveSheet.Range("$C$" & LSearchRow)
Set Naar_Welke_Locatie = ActiveSheet.Range("$D$" & LSearchRow)


'Het wordt nu in een message box weer gegeven als je echt uit wil voeren kan je deze weg halen
'MsgBox "Verplaatsen " & Van_Welke_Locatie & Welk_Bestand & "Naar " & Naar_Welke_Locatie & Welk_Bestand

'Hier wordt gecontroleerd of de directory al bestaat. Zo niet dan word deze aangemaakt
If Dir(ActiveSheet.Range("$D$" & LSearchRow).Value, vbDirectory) = "" Then
      MakeMultiStepDirectory (ActiveSheet.Range("$D$" & LSearchRow).Value)
End If

[COLOR="red"]Hier wil ik testen of het bestand bestaat. Zo ja dan moet hij de volgende regels volgen zo nee dan moet hij 3 regels lager (het ophogen van de variabele)verder gaan[/COLOR]
Name Van_Welke_Locatie & "\" & Welk_Bestand As Naar_Welke_Locatie & "\" & Welk_Bestand
ActiveSheet.Range("$E$" & LSearchRow).Value = "V"

LSearchRow = LSearchRow + 1
Wend

MsgBox "Verplaatsen van bestanden is klaar"

End Sub

 

[danvie]

Inmiddels zelf de oplossing voor gevonden.