Advertisement
Guest User

Untitled

a guest
Jun 26th, 2017
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.02 KB | None | 0 0
  1. #r "../../packages/NLog/lib/net45/NLog.dll"
  2. #r "../../Source/EasySyncClient/bin/Debug/EasySyncClient.dll"
  3.  
  4. open EasySyncClient.AlfrescoClient
  5. open EasySyncClient.ClientModels
  6.  
  7. let client = AlfrescoClient( { User = "admin"; Password = "admin"; Url = ""})
  8.  
  9. let baseDir = "/alfresco/webdav/Validate"
  10. let root = RemoteRoot baseDir
  11.  
  12. let createDir() =
  13. let relative = RemoteRelativeNoName "SecA/SecB/SecC"
  14. client.TryCreateDirectories root relative |> printfn "%A"
  15.  
  16. let uploadFile() =
  17. let localFile = "Resource/Dir1/Dir2/Dir3/Test1.txt"
  18. let localPath = "Resource"
  19.  
  20. let localRoot = LocalRoot localPath
  21. let fullPath = FullLocalPath localFile
  22.  
  23. client.UploadFile root localRoot fullPath
  24.  
  25. let renameFile() =
  26. let info =
  27. { MoveInfo.OldPath = "Resource/Dir1/Dir2/Dir3/Test1.txt"
  28. NewPath = "Resource/Dir1/Dir2/Dir3/Test1-New.txt" }
  29.  
  30. let localPath = "Resource"
  31. let localRoot = LocalRoot localPath
  32.  
  33. client.MoveFile root localRoot info
  34.  
  35. //uploadFile() |> printfn "%A"
  36. //renameFile() |> printfn "%A"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement