FileSyStemObject 샘플 Code_asp 자습서

--------------------------------------------------------- ---------------------------------

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'FileSystemObject 샘플 코드

'

'Copyright 1998 Microsoft Corporation. 모든 권리 보유.

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

옵션 명시 적

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

다음은 인용 된 내용입니다.

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'쉽게 얻을 수있는 글로벌 변수

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

희미한 탭 탑

Dim Newline

const testdrive = "c"

const testfilepath = "c : test"

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'drive.drivetype에 의해 상수 반환

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

const driveTyPerEmovable = 1

const drivetypefixed = 2

const drivetypenetwork = 3

const drivetypecdrom = 4

const driveTyperamdisk = 5

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'file.attributes에 의해 상수 반환

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

const fileattrnormal = 0

const fileattrreadonly = 1

const fileattrhidden = 2

const fileattrystem = 4

const fileattrvolume = 8

const fileattrdirectory = 16

const fileattrarchive = 32

const fileattralias = 64

const fileattrompressed = 128

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'파일을 여는 데 사용되는 상수

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

const OpenFileforReading = 1

Const OpenFileFiRwiting = 2

const OpenFileforAppending = 8

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'showdriveType

'

' 목적:

'

'주어진 드라이브 객체의 드라이브 유형을 설명하는 문자열을 생성합니다.

'

'다음을 보여주십시오

'

' - drive.driveType

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

함수 showdriveType (드라이브)

희미한 s

Case Drive.Drivetype을 선택하십시오

사례 driveTyPereMovable

s = "탈착식"

CASE DRIVETYPEFIXED

s = "고정"

CASE DRIVETYPENETWORK

S = "네트워크"

Case DriveTyPecdrom

S = "CD-ROM"

CASE DRIVETYPERAMDISK

S = "RAM 디스크"

다른 경우

s = "알 수없는"

종료 선택

showdriveType = s

엔드 기능

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'showfileattr

'

' 목적:

'

'파일 또는 폴더의 속성을 설명하는 문자열을 생성합니다.

'

'다음을 보여주십시오

'

' - File.Attributes

'-Folder.Attributes

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

function showFileAttr (file) '파일은 파일 또는 폴더 일 수 있습니다.

희미한 s

희미한 attr

attr = file.attributes

attr = 0이면

showfileattr = "정상"

종료 기능

끝 If

att 및 fileattrdirectory는 s = s & amp;

attr 및 fileattrreadonly이면 S = S & amp;

att와 fileattrhidden이라면 s = s & amp;

att와 fileattrsystem이라면 s = s & amp;

att와 fileattrvolume이라면 s = s & amp;

attr and fileattrarchive는 s = s & amp;

att와 fileattralias는 s = s & amp;

att와 fileattrompressed는 s = s & amp;

showfileattr = s

엔드 기능

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'생성 된 리이브 인식

'

' 목적:

'

'사용 가능한 드라이브의 현재 상태를 설명하는 문자열을 생성합니다.

'

'다음을 보여주십시오

'

' - FileSystemObject.Drives

' - 드라이브 컬렉션 반복

' - 드라이브

' - Drive.AvailAblespace

'-Drive.Driveletter

' - drive.driveType

' - 드라이브. 파일 시스템

'-Drive.freespace

' - drive.isready

' - drive.path

' - Drive.SerialNumber

' - drive.sharename

' - drive.totalsize

' - drive.volumename

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

함수 생성 리시 인formation (FSO)

희미한 드라이브

딤 드라이브

희미한 s

SET DRIVES = FSO.DRIVES

S = "DriveS.Count & amp;

'보고서의 첫 번째 줄을 구성하십시오.

s = s & amp;

s = s & amp;

S = S & amp;

S = S & amp;

S = S & amp;

s = s & amp;

'보고서의 두 번째 줄을 구성하십시오.

S = S & amp;

S = S & amp;

s = s & amp;

S = S & amp;

S = S & amp;

S = S & amp;

s = s & amp;

s = s & amp;

s = s & amp;

S = S & amp;

'별도의 행.

s = s & amp;

드라이브의 각 드라이브에 대해

S = S & amp; 드라이브

S = S & amp;

s = s & amp;

S = S & amp;

Drive.Sready라면

driveTypenetwork = drive.driveType 인 경우

s = s & amp;

또 다른

S = S & amp;

끝 If

S = S & amp;

s = s & amp;

S = S & amp;

S = S & amp;

S = S & amp;

끝 If

S = S & amp;

다음

GeneratedRiveInformation = s

엔드 기능

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'GenerateFileInformation

'

' 목적:

'

'파일의 현재 상태를 설명하기 위해 문자열을 생성합니다.

'

'다음을 보여주십시오

'

' - file.path

' - file.name

' - file.type

' - file.datecreated

' - file.datelastacceded

' - file.datelastmodified

' - file.size

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

함수 생성 파일 정보 (파일)

희미한 s

s = newline & quot;

S = Newline;

s = s & amp;

S = Newline;

s = s & amp;

S = S & amp;

S = Newline;

S = Newline & hamp;

GenerateFileInformation = s

엔드 기능

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'GenerateFolderInformation

'

' 목적:

'

'폴더의 현재 상태를 설명하기 위해 문자열을 생성합니다.

'

'다음을 보여주십시오

'

' - folder.path

' - 폴더. 이름

' - folder.datecreated

'-Folder.datelastAcceded

'-Folder.datelastModified

' - 폴더 .size

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

함수 GERNATEFOLDERINFORMATION (폴더)

희미한 s

S = "Tabstop & amp;

S = S & amp;

S = S & amp;

S = Newline;

S = S & amp;

S = S & amp;

S = Newline;

GenerateFolderInformation = s

엔드 기능

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'GenerateAllfolderInformation

'

' 목적:

'

'폴더와 모든 파일 및 하위 폴더의 현재 상태를 설명하기 위해 문자열을 생성합니다.

'

'다음을 보여주십시오

'

' - folder.path

' - 폴더 .subfolders

' - 폴더

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

함수 GenerateAllfolderInformation (폴더)

희미한 s

희미한 하위 폴더

희미한 하위 폴더

희미한 파일

희미한 파일

S = 폴더 : "Tabstop & amp;

files = folder.files를 설정합니다

1 = files.count라면

S = S & quot;

또 다른

S = amp;

끝 If

files.count & lt; & gt;

파일의 각 파일에 대해

s = s & amp;

다음

끝 If

subfolders = folder.subfolders를 설정하십시오

1 = subfolders.count 그럼

S = Newline;

또 다른

S = Newline;

끝 If

subfolders. count & lt; 0;

서브 폴더의 각 하위 폴더에 대해

s = s & amp;

다음

S = S & amp;

서브 폴더의 각 하위 폴더에 대해

s = s & amp; GenerateAllfolderInformation (subfolder)

다음

끝 If

GenerateAllfolderInformation = s

엔드 기능

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'GenerateTestInformation

'

' 목적:

'

'C : 테스트 폴더 및 모든 파일 및 하위 폴더의 현재 상태를 설명하기 위해 문자열을 생성합니다.

'

'다음을 보여주십시오

'

' - FileSystemObject.driveExists

' - FileSystemObject.FolderExists

' - FileSystemObject.getFolder

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

함수 generateTestInformation (FSO)

희미한 시험 폴더

희미한 s

fso.driveexists (testdrive)가 아닌 경우 기능을 종료하십시오

fso.dolerexists (testfilepath)가 아닌 경우 기능을 종료하십시오

set testfolder = fso.getfolder (testfilepath)

GenerateTestInformation = GenerateAllfolderInformation (Testfolder)

엔드 기능

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'deleteTestDirectory

'

' 목적:

'

'테스트 디렉토리를 청소하십시오.

'

'다음을 보여주십시오

'

' - FileSystemObject.getFolder

' - FileSystemObject.DeleteFile

' - FileSystemObject.deletefolder

' - 폴더 .Delete

' - File.delete

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

하위 deleteTestDirectory (FSO)

희미한 시험 폴더

희미한 하위 폴더

희미한 파일

<이름 = deletefile>

'파일을 삭제하는 두 가지 방법이 있습니다.

fso.deletefile (testfilepath & amp; & quot; beatlesoctopusgarden.txt & quot;)

set file = fso.getfile (testfilepath & amp; & quot; beatlesbathroomwindow.txt & quot;)

file.delete

'폴더를 삭제하는 두 가지 방법이 있습니다.

fso.deletefolder (testfilepath & amp; & quot; beatles & quot;)

fso.deletefile (testfilepath & amp; & quot; readme.txt & quot;)

set testfolder = fso.getfolder (testfilepath)

테스트 폴더

종료 서브

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'Createlyrics

'

' 목적:

'

'폴더에서 두 개의 텍스트 파일을 만듭니다.

'

'

'다음을 보여주십시오

'

' - FileSystemObject.CreatetExtFile

' - TextStream.WriteLine

' - TextStream.write

' - textstream.writeblanklines

' - TextStream.close

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

서브 Createlyrics (폴더)

Dim TextStream

</a> <이름 = createTextFile>

set textstream = 폴더.createtextfile ( "Octopusgarden.txt & quot;)

</a> <이름 = writeTofile>

TextStream.write ( "Octopus 'Garden"' '이 문장은 파일에 줄 랩을 추가하지 않습니다.

TextStream.Writeline ( "(Ringo Starr)" ")

textstream.writeblanklines (1)

TextStream.WriteLine ( "나는 그늘에있는 문어의 정원에서 바다 아래에 있고 싶습니다."

Texttream.WriteLine ( "그는 우리를 들여 보냈으며, 우리가 어디에 있었는지 알았습니다. 그늘에있는 그의 문어 정원에서."

textstream.writeblanklines (2)

</a> <이름 = close>

textstream.close

set textstream = 폴더.createtextfile ( "bathingwindow.txt & quot;)

TextStream.WriteLine ( "그녀는 욕실 창문 (Lennon/McCartney)을 통해 들어 왔습니다."

TextStream.WriteLine ( "" ")

TextStream.WriteLine ( "그녀는 은색 숟가락으로 보호되는 욕실 창문을 통해 들어 왔습니다")

TextStream.WriteLine ( "그러나 이제 그녀는 자신의 Lagoon"의 은행에 의해 엄지 손가락을 빨고 방황합니다.

textstream.writeblanklines (2)

textstream.close

종료 서브

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'첨단

'

' 목적:

'

'가사 파일의 내용을 보여줍니다.

'

'

'다음을 보여주십시오

'

' - FileSystemObject.opentExtFile

' - FileSystemObject.getFile

' - TextStream.readall

' - TextStream.close

' - 파일 .openastextstream

' - TextStream.atendOfStream

' - TextStream.Readline

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

기능 어수자 (FSO)

Dim TextStream

희미한 s

희미한 파일

'텍스트 파일을 여는 방법에는 여러 가지가 있으며 파일에서 데이터를 읽는 여러 가지 방법이 있습니다.

'파일을 열고 읽는 두 가지 방법은 다음과 같습니다.

set textstream = fso.opentextfile (testfilepath & amp; & quot; beatlesoctopusgarden.txt & quot;, OpenFileforReading)

</a> <이름 = readfromfile>

S = TextStream.Readall & amp;

textstream.close

set file = fso.getfile (testfilepath & amp; & quot; beatlesbathroomwindow.txt & quot;)

set textStream = file.openastExtStream (OpenFileForReading)

텍스트 스트림이 아닌 상태에서 수행하십시오

s = s & amp;

고리

textstream.close

agyrics = s

엔드 기능

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'BuildTestDirectory

'

' 목적:

'

'FilesyStemObject를 시연하기 위해 디렉토리 계층을 만듭니다.

'

'이 순서로 계층 구조를 만듭니다.

'

'C : 테스트

'C : testreadme.txt

'C : TestBeatles

'C : TestBeatlesOctopusGarden.txt

'C : TestBeatlesBathroomwindow.txt

'

'

'다음을 보여주십시오

'

' - FileSystemObject.driveExists

' - FileSystemObject.FolderExists

' - filesystemobject.createfolder

' - FileSystemObject.CreatetExtFile

' - 폴더 .add

'-Folder.CreateTxtFile

' - TextStream.WriteLine

' - TextStream.close

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

</a> <이름 = folderInfo>

함수 buildTestDirectory (FSO)

희미한 시험 폴더

희미한 하위 폴더

희미한 하위 폴더

Dim TextStream

'제외 (a) 드라이브가 존재하지 않거나 (b) 생성 될 디렉토리가 이미 존재합니다.

fso.driveexists (testdrive)가 아닌 경우

buildTestDirectory = false

종료 기능

끝 If

FSO.DODEREXISTS (TESTFILEPATH)라면

buildTestDirectory = false

종료 기능

끝 If

testfolder 설정 = fso.createfolder (testfilepath)

set textstream = fso.creatextfile (testfilepath & amp; & quot; readme.txt & quot;)

Textstream.writeline ( "My Song 가사 컬렉션")

textstream.close

subfolders = testfolder.subfolders를 설정합니다

subfolder = subfolders.add ( "비틀즈")

Createlyrics Subfolder

BuildTestDirectory = true

엔드 기능

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

'

'메인 프로그램

'

'먼저, 일부 하위 폴더 및 파일뿐만 아니라 테스트 디렉토리를 만듭니다.

'그런 다음 사용 가능한 디스크 드라이브 및 테스트 디렉토리에 대한 정보를 덤프합니다.

'마지막으로 테스트 디렉토리와 모든 내용을 지우십시오.

'

'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '을 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '

서브 메인

희미한 fso

'글로벌 변수 설정.

tabstop = chr (9)

Newline = chr (10)

</a> <이름 = createfso>

set fso = createobject ( "scripting.filesystemobject")

BuildTestDirectory (FSO)가 아닌 경우

"테스트 디렉토리가 이미 존재하거나 생성 될 수 없습니다. 계속할 수 없습니다."

종료 하위

끝 If

인쇄 생성 정보 (FSO) & amp;

PrinteTeTestInformation (FSO) & amp;

Agylyrics (FSO) & amp;

deleteTestDirectory (FSO)

종료 서브