Option Explicit
On Error Resume Next

Dim fso, folder, files, fileIdx, path, docId
Dim pos, filename, targetFolder, copiedFiles

path = "Z:\"
copiedFiles = 0

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(path)
Set files = folder.Files

For Each fileIdx in files
    filename = fileIdx.Name

    If Lcase(Right(filename, 3)) = "vsd" Then
        pos = InStr(filename, "-")

        If pos > 0 Then
            docId = Left(filename, pos -1)
            filename = Right(filename, Len(filename) - pos)

            If Err.Number <> 0 Then
                wscript.echo("fel: "& Err.Description)
                wscript.echo("docid: "& docId)
                wscript.echo("filnamn: "& filename)
                wscript.echo("pos: "& pos)

                Err.Clear
                wscript.quit
            End If

            targetFolder = path & docId & "\"
            If Not fso.FolderExists(targetFolder) Then
                fso.CreateFolder(targetFolder)
            End If

            fso.CopyFile fileIdx.path, targetFolder & filename
            copiedFiles = copiedFiles + 1
        End if
    End if
Next

wscript.echo("klar! kopierade "& copiedFiles &" filer")