Hej, jag håller på att automatisera lite filflytt för en användare och tänkte att göra det så simpelt som möjligt. 

Sitter med denna koden

 Sub CopyFoldersAndFiles()

    Dim fso As Object

    Set fso = CreateObject("Scripting.FileSystemObject")

    Dim sourceFolder As Object

    Set sourceFolder = fso.GetFolder("C:\Users\Fredrik\Documents\test\")

    Dim destFolder As Object

    Set destFolder = fso.GetFolder("C:\Users\Fredrik\Documents\test2\")

    If Not fso.FolderExists(destFolder.Path) Then

        fso.CreateFolder destFolder.Path

    End If

     fso.CopyFolder sourceFolder.Path, destFolder.Path, True

End Sub

Problemet som uppstår är när jag försöker att skapa mappen om den inte skulle existera, dvs sista stycket med if Not fso...., får upp fel "Körfel 76: det går inte att htta sökvägen", har googlat en massa men är helt borta med vinden. Är det något med att jag inte har administrationsbehörigheter för att skapa en mapp där? Det funkar att manuellt skapa med hjälp av utforskaren. 

MVH

Fredrik

 Hej hej

Skumt att du inte fick körfel redan på set destfolder, det går inte att köra getfolder på en mapp som inte finns. Gissar på att felet svaldes efterssom du kör late binding istället för att importera bilblioteket med verktyg -> referenser och bock för Microsoft scripting runtime.

I nedan kod lägger jag destfoldern som en sträng fram tills det är klargjort om det finns en sådan mapp eller inte, därefter kan Mappen skapas/tilldelas.

mvh

Christian

Sub dub()

    Dim fso As New Scripting.FileSystemObject

    Dim SourceF As Folder: Set SourceF = fso.GetFolder("C:\test\")

    Dim DestPath As String: DestPath = "C:\test\test2"

    Dim DestF As Folder    

    Set DestF = IIf(Not fso.FolderExists(DestPath), fso.CreateFolder(DestPath), fso.GetFolder(DestPath))

End Sub