WebDAV File Uploader

Sometimes it is required to upload files to a remote server. But not always it is possible to use ftp. IIS based webserver, Exchange, Sharepoint, etc support WebDAV to upload/post files to remote server.

The Aloaha PDF Suite contains functionality to upload/publish files via WebDAV. The API's used by Aloaha are shown below with sample VBS code.

Publish/upload file via WebDAV

dim aloaha
dim result

dim UploadFile
Dim TargetURL 

'do not set user/password if you require a login dialog
Dim Webuser
Dim Webpass


UploadFile = "c:\test.pdf"
TargetURL = "http://yourserver.tld/public/aloaha/test.pdf"

set aloaha = createobject("aloahapdf.edit")

result = aloaha.Post2Web(cstr(UploadFile), cstr(TargetURL), cstr(WEBuser), cstr(WEBpass))

if result = 0 then
     msgbox "OK"
else
     msgbox cstr(result)
end if

set aloaha = nothing

Publish/upload complete directory via WebDAV

dim aloaha
dim result

dim Foldername
Dim TargetURL 

'Do not set credentials if you require a login dialog
Dim Webuser
Dim Webpass

Foldername = "c:\test\"
TargetURL = "http://yourserver.tld/upload/"

set aloaha = createobject("aloahapdf.edit")

call aloaha.MoveFolder2WebDav(cstr(Foldername), cstr(TargetURL), clng(MaxFiles), cstr(WEBuser), cstr(WEBpass))

set aloaha = nothing