"Eine Klasse, die in Kombination mit FSO -Operationen geschrieben wurde"
Es wird noch verbessert und die grundlegenden Funktionen sind bereits vorhanden.
Es kann auch als Tutorial für Anfänger verwendet werden
Programmcode
<%
'**************
'Aufrufmethode: setObj = newfSocontrol
'Alle Pfade müssen absolute Pfade sein. Bitte verwenden Sie die Methode server.mappath, um den Pfad zu konvertieren, bevor Sie die Variablen definieren
'------ Filerun -----------------------------------
''
'Erforderliche Parameter:
'Filepath ----- Prozessdateipfad
''
'Optionale Parameter:
'FileAllowtype -------- Verarbeiten Sie die zulässigen Typen der Datei, Beispiel Beispiel: GIF | JPG | PNG | TXT
'FileNewdir ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'FileNewname ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'CoverPR ------- Ob überschreibe vorhandene Dateien 0 IS NEIN 1 IS JES STAFT IST 1
'DeletePr ------ ob löschen die Originaldatei 0 IS NEIN 1 IS JES STAFT IST 1
'-----------------------------------------------------
'------- Updir (Pfad) nimmt das übergeordnete Pfadverzeichnis ein
'Pfad kann eine Datei oder ein Verzeichnis sein
'------- getPrefixname (Pfad) Präfix des Dateinamens
'Pfad muss eine Datei sein, kann ein vollständiger Pfad oder ein separater Dateiname sein
'------ GetFileName (Pfad), um den Dateinamen zu erhalten
'Pfad muss eine Datei sein, kann ein vollständiger Pfad oder ein separater Dateiname sein
'------ GetExtensionName (Pfad) nimmt das Dateinamensuffix, enthält nicht "."
'Pfad muss eine Datei sein, kann ein vollständiger Pfad oder ein separater Dateiname sein
'------ ist Fileis (Path) Pfad eine Datei
'Wenn ja, geben Sie true ansonsten zurück, was falsch ist
'------ Ordnercreat (Pfad)
'------ OrdnerDelete (Pfad, Dateiif)
'----- filecopy (path_from, path_to, coverif)
'----- fileMove (path_from, path_to, coverif)
'----- satteleLete (Pfad)
'----- filerenName (Oldname, Newname, Coverif)
KlasseFSocontrol
Dimfso
PrivateFile_path, file_allowtype, file_newfolder_path, file_newname, file_coverif, file_deletef
PublicPropertylletFilepath (STRTYPE)
Datei_path = strtype
Endproperschaft
PublicPropertylletFileAllowtype (STRTYPE)
Datei_Allowtype = Strype
Endproperschaft
PublicPropertylletFilenewdir (STRTTYPE)
Datei_Newfolder_path = Strype
Endproperschaft
PublicPropertylletFilenewname (STRTYPE)
Datei_Newname = Strype
Endproperschaft
PublicPropertyletcoverPR (lngSize)
Ifisnumeric (lngSize) dann
Datei_coverif = clng (lngSize)
Endif
Endproperschaft
PublicPropertyletDeletRep (lngSize)
Ifisnumeric (lngSize) dann
Datei_deletef = clng (lngSize)
Endif
Endproperschaft
PrivateSubclass_initialize ()
Setfso = createObject ("scripting.filesystemObject")