"Une classe écrite en combinaison avec les opérations FSO"
Il est toujours amélioré et les fonctions de base sont déjà en place.
Il peut également être utilisé comme tutoriel pour les débutants
Code de programme
<%
'************************************** CDS SYSTÈME FSO Classe Beta1 ************************
'Méthode d'appel: setObj = newfsocontrol
«Tous les chemins doivent être des chemins absolus. Veuillez utiliser la méthode server.mappath pour convertir le chemin avant de définir les variables
'------ Fileun ---------------------------------------
'
'Paramètres requis:
'Filepath ----- Chemin de fichier de processus
'
«Paramètres facultatifs:
'FileallowType -------- Traitez les types autorisés du fichier, définissez l'exemple de méthode: gif | jpg | png | txt
'FileNewDir--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'FileNewName--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CoverPr ------- Si les fichiers existants d'écraser 0 sont non 1 est oui par défaut est 1
'Delelepr ------ si la suppression du fichier d'origine 0 est non 1 est oui par défaut est 1
'---------------------------------------------------------
'------- Updir (chemin) prend le répertoire parent de chemin
'Le chemin peut être un fichier ou un répertoire
'------- getPrefixName (Path) Préfixe le nom du fichier
'Le chemin doit être un fichier, peut être un chemin complet ou un nom de fichier séparé
'------ GetFileName (chemin) pour obtenir le nom du fichier
'Le chemin doit être un fichier, peut être un chemin complet ou un nom de fichier séparé
'------ GetExtensionName (path) prend le suffixe de nom de fichier, ne contient pas "."
'Le chemin doit être un fichier, peut être un chemin complet ou un nom de fichier séparé
'------ est fileis (chemin) chemin un fichier
'Si c'est le cas, renvoyez True Renvoie autrement false
'------ FolderCreat (chemin)
'------ FolderDelete (Path, FileIF)
'----- FileCopy (path_from, path_to, couverf)
'----- fileMove (path_from, path_to, couverf)
'----- FileDelete (chemin)
'----- FileRename (Oldname, Newname, CoverIF)
Classfsocontrol
Dimfso
Privatefile_path, file_allowtype, file_newfolder_path, file_newname, file_coverif, file_deleteif
PublicPropertyletFilepath (Strype)
File_path = strType
Endproperty
PublicProperTyletFileAllowType (Strype)
File_allowtype = strype
Endproperty
PublicPropertyletFilenewdir (Strype)
File_newfolder_path = strype
Endproperty
PublicProperTyletFileNewName (Strype)
File_newname = strType
Endproperty
PublicProperTyletCoverpr (LNGSize)
Ifisnumeric (lngSize) puis
File_coverif = clng (lngSize)
Endire
Endproperty
PublicProperTyletledeleTepr (LNGSize)
Ifisnumeric (lngSize) puis
File_deleteif = clng (lngSize)
Endire
Endproperty
PRIVATESUBCLASS_INITIALIZE ()
Setfso = createObject ("scripting.fileSystemObject")