×

Welcome to TagMyCode

Please login or create account to add a snippet.
0
0
 
0
Language: Xojo
Posted by: Radium Kymist
Added: Feb 7, 2015 12:51 PM
Views: 21
Tags: upload web
Creates the upload directory if it doesn't exist and uploads all added files.

Credit: simulanics
  1. dim file as FolderItem
  2.   dim i as Integer
  3.  
  4.   File = GetFolderItem("Uploads")
  5.   if File.Exists = false then
  6.     File.CreateAsFolder
  7.   end if
  8.  
  9.   for i = 0 to files.Ubound
  10.     File = File.Child(files(i).Name)
  11.     Files(i).Save(File)
  12.   next i