ASP FSO -Datei Betriebsfunktionscode

Autor：Eve Cole Aktualisierungszeit：2025-01-31 03:36:02

Lassen Sie uns die Funktion des FSO -Datei in ASP vorstellen.

FSO -Datei (Datei) Objektattribut

DATECREEED gibt das Erstellungsdatum und die Uhrzeit des Ordners zurück

Datelaastaccessed gibt das Datum und die Uhrzeit des letzten Besuchs in der Datei zurück

DatelaastModify gibt das Datum und die Uhrzeit der letzten Änderung der Datei zurück

Drive gibt das Laufwerksobjekt des Laufwerks zurück, an dem sich die Datei befindet

Name Einstellungen oder Rückgabe von Dateinamen zurückgeben

Der ParentFolder gibt das Ordnerobjekt des übergeordneten Ordners der Datei zurück

Pfad gibt den absoluten Pfad der Datei zurück. Sie können den langen Dateinamen verwenden

ShortName gibt die Form des Dateinamens im DOS -BYLE 8.3 zurück

ShortPath gibt den DOS -Style 8.3 Form der Absolute -Path -Datei zurück

Die Größe gibt die Größe der Datei zurück (Byte)

Wenn der Typ kann, geben Sie eine Dateityp -Befehlszeichenfolge zurück

FSO -Datei (Datei) Objektmethode

FSO -Dateiobjektmethode verwenden

Kopieren Sie eine oder mehrere Dateien auf den neuen Pfad

CreateTextFile erstellt eine Datei und gibt ein Textstream -Objekt zurück

DeleteFile Löschen Sie eine Datei

OpenTextFile öffnet die Datei und gibt das Textstream -Objekt zum Lesen oder Hinzufügen zurück

Rena -Namensdatei:

Der Code ist wie folgt:

Funktion umbenennen (Sourcename, Destname)

düster, vonil

Set OffSO = Server.CreateObject (scripting.filesystemObject)

set ofile = offso.getFile (server.mappath (Quelle))))

OFILE.NAME = DESTNAME

Astso = nichts setzen

Set ofil = nichts

Endfunktion

Dateien löschen:

Der Code ist wie folgt:

Funktion fSodel (Dateiname)

Dim fso, f

Setzen Sie fso = server.createObject (scripting.FilesystemObject)

F = server.mappath (Dateiname)

Wenn fso.fileexist (f) dann

Fso.deletefile f, true

Ende wenn

Setzen Sie f = nichts

fso = nichts setzen

Endfunktion

Ändern Sie die Zeichenfolge in der Datei:

Der Code ist wie folgt:

Funktion fsoreplace (Dateiname, Ziel, Repstring)

Dim OBJFSO, Objcountfile, Filetempdata

Setzen Sie OBJFSO = Server.createObject (scripting.filesystemObject)

SET OBJCOUNTFILE

FiletempData = objcountFile.readall

objcountfile.close

FiletempData = Ersetzen (FiletempData, Ziel, Repstring)

SET OBJCOUNTFILE

objcountfile.writ fileTempdata

objcountfile.close

Setzen Sie objcountfile = nichts

Setzen Sie objfso = nichts

Endfunktion

'****************************************** ******************************************************** ******************************************************** ******************************************************** ******************************************************** **************, ******

'Funktionsname: createFolder (SPAD)

'Funktion: Erstellen Sie ein Verzeichnis

'Parameter: Spath: Der relative Verzeichnisweg erstellt

'Return Value: Erfolg wahr, falsch falsch

'Response.write createFolder (/dgsunshine/uploadFile/Demo1/)

Funktion createFolder (SPI)

Bei der nächsten Fehleraufnahme als nächstes

Dim FSO, Arrfolder, Ordner, i, J.

Wenn space = dann

CreateFolder = false

Ausgangsfunktion

Ende wenn

Wenn links (Spath, 1) = / dann

Ordner = /

Spath = Mid (Spath, 2, Len (Spath)))

Anders

Ordner = ./

Ende wenn

Wenn rechts (Spath, 1) = / dann spath = links (spad, len (spad) -1)

Arrfolder = spath (Spath,/)

Setzen Sie fso = server.createObject (scripting.FilesystemObject)

Für i = 0 bis Ubound (Arrfolder)

Wenn i = 0 dann

Ordner = Ordner & Arrfolder (i) & /

Anders

Ordner = Ordner & Arrfolder (i) & /

Ende wenn

Wenn fso.foldrexists (server.mappath (Ordner)) = false dann

response.write server.mappath (Ordner)

FSO.CreateFolder (Server.MAppath (Ordner))

Ende wenn

Fso = nichts setzen

Wenn err.number <> 0 dann dann

Err.clear ()

CreateFolder = false

Anders

CreateFolder = true

Ende wenn

Endfunktion

Funktion getFile (ParamFilepath)

Setzen Sie fso = server.createObject (scripting.FilesystemObject)

Setzen Sie fso_read = fso.opentextFile (server.mappath (paramFilepath), 1, false, -2)

getFile = fso_read.readall

Setzen Sie fso_read = nichts

Fso = nichts setzen

Endfunktion

'Funktionsname: createFile (paramFilecontent, paramFilepath)

'Funktion: Erstellen einer Datei

"Parameter: ParamFileContent" -Dateiinhalt

"ParamFilepath" -Dateiname (ohne Pfad)

'Return Value: Erfolg wahr, falsch falsch

Funktion createFile (paramFilecontent, paramFilepath)

Bei der nächsten Fehleraufnahme als nächstes

Dim fso, fwrite

Setzen Sie fso = server.createObject (scripting.FilesystemObject)

Setzen Sie fWrite = fso.createTextFile (server.mappath (paramFilepath), true)

fWrite.write paramFileContent

fwrite.close ()

Setzen Sie fWrite = nichts

Fso = nichts setzen

Wenn err.number <> 0 dann dann

Err.clear ()

CreateFile = false

Anders

CreateFile = true

Ende wenn

Endfunktion

'Funktionsname: Delfile (Filepath)

'Funktion: Dateien löschen

"Parameter: FilePath" Dateipfad mehrere Dateien für mehrere Dateien | separat

'Return Value: Erfolg wahr, falsch falsch

Funktion Delfile (Filepath)

Bei der nächsten Fehleraufnahme als nächstes

Dim fso, arrfile, ich

Wenn getAfestr (filepath,) = dann

CreateFolder = false

Ausgangsfunktion

Ende wenn

ArrFile = split (filepath, | |)

Setzen Sie fso = server.createObject (scripting.FilesystemObject)

für i = 0 bis ubound (arrFile)

Filepath = arrfile (i)

Wenn fso.fileexist (server.mappath (filepath) dann) dann)

Fso.deletefile server.mappath (filepath)

Ende wenn

Fso = nichts setzen

Wenn irren

Err.clear ()

Delfile = false

Anders

Delfile = true

Ende wenn

Endfunktion

'Funktionsname: Delfolder (OrdnerPath)

'Funktion: Löschen Sie das Verzeichnis

'Parameter: OrdnerPath' Verzeichnispfade 'Multi -Verzeichnis -Eliminierung | Trennung

'Return Value: Erfolg wahr, falsch falsch

Funktion Delformer (OrdnerPath)

Bei der nächsten Fehleraufnahme als nächstes

Dim fso, Arrfolder, ich

Wenn getAfestr (OrdnerPath,) = dann

Delfolder = false

Ausgangsfunktion

Ende wenn

Arrfolder = split (OrdnerPath, |)

Setzen Sie fso = server.createObject (scripting.FilesystemObject)

Für i = 0 bis Ubound (Arrfolder)

OrdnerPath = ArrFolder (i)

Wenn fso.foldrexists (server.mappath (OrdnerPath) dann) dann)

Fso.deleteFolder server.mappath (OrdnerPath)

Ende wenn

Wenn irren

Err.clear ()

Delfolder = false

'Duschror löschen das Verzeichnis fehlgeschlagen,

anders

Delfinolder = true

Ende wenn

Endfunktion

'Funktionsname: isExistFile (Filepath)

'Funktion: Bestimmen Sie, ob die Datei oder das Verzeichnis existiert

"Parameter: FilePath" Dateipfad mehrere Dateien für mehrere Dateien | separat

'Return Value: Erfolg wahr, falsch falsch

Funktion isExistFile (Filepath)

Bei der nächsten Fehleraufnahme als nächstes

Dim fso, arrfile, ich

Wenn getAfestr (filepath,) = dann

IsexistFile = false

Ende wenn

ArrFile = split (filepath, | |)

Setzen Sie fso = server.createObject (scripting.FilesystemObject)

für i = 0 bis ubound (arrFile)

Filepath = arrfile (i)

Wenn fso.fileexist (server.mappath (filepath) dann) dann)

IsexistFile = true

Ende wenn

Wenn fso.foldrexist (server.mappath (filepath)) dann

IsexistFile = true

Ende wenn

Fso = nichts setzen

Wenn irren

Err.clear ()

IsexistFile = false

'Duschror beurteilen, ob die Datei oder das Verzeichnis fehlschlägt.

anders

IsexistFile = true

Ende wenn

Endfunktion

'Funktionsname: Delfile (Filepath)

'Funktion: Dateien oder Verzeichnis löschen

"Parameter: FilePath" Dateipfad mehrere Dateien für mehrere Dateien | separat

'Return Value: Erfolg wahr, falsch falsch

Funktion Delfile (Filepath)

Bei der nächsten Fehleraufnahme als nächstes

Dim fso, arrfile, ich

Wenn getAfestr (filepath,) = dann

CreateFolder = false

Ende wenn

ArrFile = split (filepath, | |)

Setzen Sie fso = server.createObject (scripting.FilesystemObject)

für i = 0 bis ubound (arrFile)

Filepath = arrfile (i)

Wenn fso.fileexist (server.mappath (filepath) dann) dann)

Fso.deletefile server.mappath (filepath)

Ende wenn

Wenn fso.foldrexist (server.mappath (filepath)) dann

Fso.deleteFolder server.mappath (filepath)

Ende wenn

Fso = nichts setzen

Wenn irren

Err.clear ()

Delfile = false

'Duschror löschen Datei oder Verzeichnis fehlgeschlagen,

anders

Delfile = true

Ende wenn

Endfunktion

'Funktionsname: RenameFile (Oldname, Newname)

'Funktion: Datei oder Verzeichnis umbenennen

'Parameter: StroldName' Original -Dateiname Multi -Use | separat

'Strnewname' neuer Dateiname Multi -Use | separat

'Bitte halten Sie die gleichen zwei Parameter konsistent

'Return Value: Erfolg wahr, falsch falsch

Funktion RenameFile (StroldName, Strnewname)

Bei der nächsten Fehleraufnahme als nächstes

Dim FSO, Arrold, ArrNew, I, Oldname, Newname

Alt = getAfestern (StroldName,)

Newfile = getAfestry (Strnewname,)

Wenn alt = oder newfile = dann

NameFile = false

Ausgangsfunktion

Ende wenn

arold = split (stroldname, |)

arrNew = split (Strnewname, |)

Wenn Ubound (Arrold) <> Ubound (ArrNew) dann

NameFile = false

Ausgangsfunktion

Ende wenn

Setzen Sie fso = server.createObject (scripting.FilesystemObject)

für i = 0 bis Ubound (Pfeil)

OldName = Server.MAppath (Arrold (i))

newname = server.mappath (arrNew (i))

Wenn fso.fileexist (Oldname) und nicht fso.fileexists (NewName) dann

fso.moveFile Oldname, Newname

'RenameFile = true

Ende wenn

Fso = nichts setzen

Wenn err.number <> 0 dann dann

Err.clear ()

NameFile = false

Anders

RenameFile = true

Ende wenn

Endfunktion

'Funktionsname: Copyfiles (Tempsource, Tempend)

'Datei: Datei oder Verzeichnis kopieren

'Parameter: Tempsource' Quelldatei Name Multi -Purpose | separat

'Tempend' Destable Dateiname Multi -Purpose | separat

HINWEIS: Bitte behalten Sie die gleichen zwei Parameter oben, und beide sind der vollständige Pfad.

'Die Server.Mappath -Methode wurde verarbeitet

'Return Value: Erfolg wahr, falsch falsch

Funktionskopien (Tempsource, Tempend)

Bei der nächsten Fehleraufnahme als nächstes

Dim Copyfso, arrSource, Arrend

CopyFiles = false

Setzen Sie CopyFSO = server.createObject (scripting.FilesystemObject)

Wenn tempsource = oder tempend = dann

Errray -Datei oder -verzeichnis, die die Bedingung leer ist, ist leer

CopyFiles = false

Ausgangsfunktion

Ende wenn

ArrSource = split (tempsource, |)

Arrend = split (tempend, |)

Wenn Ubound (arrSource) <> ubound (arbit) dann dann

CopyFiles = false

Ausgangsfunktion

Ende wenn

für i = 0 bis Ubound (arrSource)

srcname = arrSource (i)

tarname = arrenden (i)

Wenn copyfso.filexisten (srcname) und nicht copyfso.FileExist (Tarname) dann

Copyfso.copyfile srcname, Tarname

Copyfiles = true

Ende wenn

Wenn copyfso.foldrexist (srcname) und nicht copyfso.foldrexist (Tarname) dann

Copyfso.CopyFolder SrcName, Tarname

Copyfiles = true

Ende wenn

Setzen Sie CopyfSO = nichts

Wenn irren

'Err.clear ()

CopyFiles = false

Ende wenn

Endfunktion