Antagligen är jag väl ett ägg när det gäller detta men jag kan inte få följande kod rätt. Det gäller en kod som finns under Tips & tricks på Pellesoft och beskriver hur man kopierar filerr från mapp till en annan mapp.

Kan någon förklara vart jag lägger följande kod.


Sub dirCopy(FromPath As String, ToPath As String)
ReDim FileName(1) As String


If Right(FromPath, 1) <> "\" Then FromPath = FromPath & "\"
If Right(ToPath, 1) <> "\" Then ToPath = ToPath & "\"


If (Dir(FromPath, vbDirectory) <> "") And (Dir(ToPath, vbDirectory) <> "") Then
Dim i As Integer
i = 0
FileName(i) = Dir(FromPath, vbDirectory)
While FileName(i) <> ""
If (GetAttr(FromPath & FileName(i)) And vbDirectory) = vbDirectory Then
If FileName(i) <> "." And FileName(i) <> ".." Then
i = i + 1
ReDim Preserve FileName(i + 1) As String
End If
Else
FileCopy FromPath & FileName(i), ToPath & FileName(i)
End If

FileName(i) = Dir
Wend

'Kopiera underkatalogerna
If i > 0 Then
For Each directory In FileName
If directory <> "" Then
'förbered den nya katalogen
MkDir ToPath & directory

'kopiera katalogen
dirCopy FromPath & directory, ToPath & directory
End If
Next
End If
End If
End Sub

Du skall nog skriva Public framför och lägga den i en modul.
Annars skulle jag nog skriva det så här:

<code>
Public Sub DirCopy(FromPath As String, ToPath As String)
'FromPath innehåller namnet på den mapp som skall flyttas.
'ToPath innehåller namnet på den mapp dit den skall flyttas.
'Ex:
'FromPath = "C:\Blabla\Mapp"
'ToPath = "C:\En\Annan"
'Kommer medföra att C:\Blabla\Mapp flyttas och blir C:\En\Annan\Mapp

Shell "XCopy " & FromPath & " " & ToPath
End Sub
</code>

Jag har inte testat den, men du kan nog enkelt anpassa den som du vill ha det.

/Niklas Jansson

Du lägger koden i en modul och anropar den sedan med:

dirCopy "C:\från_mapp", "C:\till_mapp"


/Johan