get.dropbox.folder <- function() {
  
  if (!require(RCurl)) stop ("You need to install RCurl package.")
  if (Sys.info()["sysname"]!="Windows") stop("Currently, 'get.dropbox.folder' works for Windows only. Sorry.")
  
  db.file <- paste(Sys.getenv('APPDATA'), '\\Dropbox\\host.db', sep='')
  base64coded <- readLines(db.file, warn=FALSE)[2]
  
  base64(base64coded, encode=FALSE)
}