(Tcl) SharePoint -- Get Files in Root Folder

See more SharePoint Examples

Gets the list of files that exist in the root folder.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

# -------------------------------------------------------------------------
# The following comments apply to SharePoint Windows classic authentication.
# -------------------------------------------------------------------------
# For example, imagine our SharePoint endpoint is https://xyzoffice.mycompany.com/
# The SHAREPOINT_NTLM_DOMAIN would be "mycompany.com"
# The SHAREPOINT_HTTPS_DOMAIN would be "xyzoffice.mycompany.com"
# Also, the SHAREPOINT_USERNAME would be just the name, not a full email address.
# for example, "chilkat" instead of "chilkat@mycompany.com"

set http [new_CkHttp]

# If SharePoint Windows classic authentication is used, then set the 
# Login, Password, LoginDomain, and NtlmAuth properties.
CkHttp_put_Login $http "SHAREPOINT_USERNAME"
CkHttp_put_Password $http "SHAREPOINT_PASSWORD"
CkHttp_put_LoginDomain $http "SHAREPOINT_NTLM_DOMAIN"
CkHttp_put_NtlmAuth $http 1

# -------------------------------------------------------------------------
# The more common case is to use SharePoint Online authentication (via the SPOIDCRL cookie).
# If so, do not set Login, Password, LoginDomain, and NtlmAuth, and instead
# establish the cookie as shown at SharePoint Online Authentication
# -------------------------------------------------------------------------

# Indicate that we want a JSON reply
CkHttp_put_Accept $http "application/json;odata=verbose"
CkHttp_put_AcceptCharset $http "utf-8"

# If your Sharepoint site is within a site collection, then use "https://SHAREPOINT_HTTPS_DOMAIN/sites/teamA/_api/web/GetFolderByServerRelativeUrl('/sites/teamA/')/Files" where "teamA" is the name of the site.
set sbJson [new_CkStringBuilder]

set success [CkHttp_QuickGetSb $http "https://SHAREPOINT_HTTPS_DOMAIN/_api/web/GetFolderByServerRelativeUrl('/')/Files" $sbJson]
if {$success != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkStringBuilder $sbJson
    exit
}

set json [new_CkJsonObject]

CkJsonObject_LoadSb $json $sbJson

# Iterate over the results and get each file's name, size, and last-modified date/time.

set numFiles [CkJsonObject_SizeOfArray $json "d.results"]
puts "Number of Files in the SharePoint root folder = $numFiles"

set lastMod [new_CkDateTime]

# dt is a CkDtObj

set bLocal 1

set i 0
while {$i < $numFiles} {
    CkJsonObject_put_I $json $i

    set filename [CkJsonObject_stringOf $json "d.results[i].Name"]
    set fileRelativeUri [CkJsonObject_stringOf $json "d.results[i].ServerRelativeUrl"]
    set fileSize [CkJsonObject_IntOf $json "d.results[i].Length"]
    set sLastModified [CkJsonObject_stringOf $json "d.results[i].TimeLastModified"]

    puts [expr $i + 1]: $filename
    puts "    Relative URI: $fileRelativeUri"
    puts "    Size in Bytes: $fileSize"

    # Show the last-modified date/time in the local timezone.
    CkDateTime_SetFromTimestamp $lastMod $sLastModified
    set dt [CkDateTime_GetDtObj $lastMod $bLocal]
    puts "    Last-Modified: [CkDtObj_get_Day $dt]/[CkDtObj_get_Month $dt]/[CkDtObj_get_Year $dt] [CkDtObj_get_Hour $dt]:[CkDtObj_get_Minute $dt]"
    delete_CkDtObj $dt

    set i [expr $i + 1]
}

# The output of this program when I tested it:

# 	Number of Files in the SharePoint root folder = 5
# 	1: Documentstester1.txt
# 	    Relative URI: /Documentstester1.txt
# 	    Size in Bytes: 17
# 	    Last-Modified: 6/4/2017 11:31
# 	2: Documents11_D42_Device_70_IP.xlsx
# 	    Relative URI: /Documents11_D42_Device_70_IP.xlsx
# 	    Size in Bytes: 17472
# 	    Last-Modified: 6/4/2017 10:54
# 	3: default.aspx
# 	    Relative URI: /default.aspx
# 	    Size in Bytes: 3960
# 	    Last-Modified: 26/10/2015 20:47
# 	4: DocumentsVCAC NEW Admin and RA bacgrounds.pptx
# 	    Relative URI: /DocumentsVCAC NEW Admin and RA bacgrounds.pptx
# 	    Size in Bytes: 11867024
# 	    Last-Modified: 6/4/2017 10:51
# 	5: DocumentsVCAC_Installer_Web_Sites_Installation.docx
# 	    Relative URI: /DocumentsVCAC_Installer_Web_Sites_Installation.docx
# 	    Size in Bytes: 529482
# 	    Last-Modified: 6/4/2017 11:0

delete_CkHttp $http
delete_CkStringBuilder $sbJson
delete_CkJsonObject $json
delete_CkDateTime $lastMod