<html>
<head>
<title>t@CANZXR|[lg</title>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div id="">
<table cellpadding="0" cellspacing="0" border="0" width="100%" class="main">
<tr>
<td valign="top" class="NAME">t@CANZXR|[lg</td>
<td valign="top" class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td valign="top" colspan="2" class="description">


<p><!--<primary>files</primary><secondary>manipulating
from applications</secondary>--> <!--<primary>applications</primary><secondary>file
manipulation capabilities</secondary>--> <!--<primary>File Access
components</primary>-->lCeBu ASP IuWFNg (RequestAResponse Ȃ) ъẽCXg[\ȃR|[lg (Ad RotatorABrowser Capabilities Ȃ) ɉA 3 ̃IuWFNg̃O[vɂANZXł܂B̃IuWFNǵAMicrosoft Scripting Runtime DLL (<filename>scrrun.dll </filename>) 璼ڃCX^X܂B DLL ɂ́AlCeBu ASP IuWFNgɂ VBScript ^C (<filename>vbscript.dll</filename> ) gɂȂ@\pӂĂ܂BXNveBO DLL AAvP[VɍL͈͂̃t@C@\񋟂IuWFNgCX^Xł܂B DLL ́Atrue ̃RNVȂŗގ̃RNV@\sł Dictionary IuWFNg쐬邱Ƃł܂B</p>




<p>ׂẴt@ĆA
<!--<primary>FileSystemObject
object</primary>-->FileSystemObject IuWFNgɂĎs܂BAvP[Vɂ͂̒ 1 ̃IuWFNgȂÃIuWFNgVXẽt@C\ɑ΂AvP[V "EBhE" ƂȂ܂B̃IuWFNggpƁAt@CJAt@CȂǂ̊ȒPȋ@\sł܂BÃIuWFNg̖{݂̋́ADriveAFolderA File Ƃ̃t@CIuWFNgCX^Xł邱ƂłBAvP[Vł́ÃIuWFNgɂAR}hsC^[tFCXgpēt@CVXeɑ΂\͂قƂǊmۂł܂B</p>
</td></tr>
</table>
</div>
<div id="AccessoryFilesRequiredDLLFiles">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
ANZTt@CѕKv DLL t@C</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2">&nbsp;</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">




<dl>
<dt><filename>Scrrun.DLL</filename><!--<primary>Scrrun.DLL library</primary>--></dt>
<dd><p>ׂẴXNveBOIuWFNgێ铮INCułB DLL ́AWeb T[o[ IIS 4.0 CXg[ƁAftHgŃCXg[܂B</p></dd>

</dl>
</td>
</tr>
</table>
</div>
<div id="InstantiatingInstallableComponents">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
CXg[\ȃR|[lg̃CX^X</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2">&nbsp;</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">




<p><!--<primary>instantiating</primary><secondary>FileSystemObject
object</secondary>--> <!--<primary>FileSystemObject
object</primary><secondary>instantiating</secondary>-->FileSystemObject R|[lg̃CX^XێIuWFNgϐ쐬ɂ́AServer IuWFNg CreateObject \bhgp܂BCreateObject \bh̍\Ɏ܂B</p>




<span class="PROGRAMLISTING"><pre>Set objMyObject = Server.CreateObject(<var class="replaceable">strProgId</var>)</pre></span>




<p>ŁAel̈Ӗ͎̂ƂłB</p>




<ul><dd><p><var class="replaceable"> objMyObject</var>  FileSystemObject ϐ̖O\܂B</p></dd><dd><p><var class="replaceable"> strProgId</var> ́AFileSystemObject R|[lgA܂A<span class="LITERAL">Scripting.FileSystemObject.</span> ̃vOʎq (ProgID) \܂B</p></dd></ul>
<sect2 role="" id="ch19-4-fm2xml" label="19.2.1">
<p class="TITLE"></p>




<span class="PROGRAMLISTING"><pre>&lt;% 

' The following code uses the CreateObject method of 
' the Server object to instantiate a FileSystemObject.
Dim fsFileSystemObject
Set fsFileSystemObject = _
   Server.CreateObject("Scripting.FileSystemObject")

%&gt;</pre></span>




<p>CreateObject \bh̎gp@̏ڍׂɂẮA<link linkend="ch09-1-fm2xml"> 9 </link>̊Y鍀QƂĂB</p>
</sect2>
</td>
</tr>
</table>
</div>
<div id="CommentsTroubleshooting">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
RgуguV[eBO</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2">&nbsp;</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">




<p><!--<primary>comments and
troubleshooting</primary><secondary>File Access
components</secondary>--><filename>scrrun.dll</filename> ̃t@CANZXR|[lggp̂͊ȒPłBG[ƁA܂܂ȃvpeBƃ\bhׂĂAG[bZ[WԂ܂B̃bZ[ẂAR}hsď̃t@Csꍇɑz肳郁bZ[WɍvĂ܂BƂ΁ARs[^̃tbs[fBXNhCũt@Cǂݏ悤ƂāAhCuɃfBXNȂꍇA"disk not ready" G[\܂B</p>
</td>
</tr>
</table>
</div>
<div id="AtEndOfLineTextStreamObject">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">AtEndOfLine (TextStream IuWFNg)</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><var class="replaceable">tsObj</var><span class="LITERAL">.AtEndOfLine</span>
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p>t@C|C^݂̍s̖ɂ邩ǂu[lłB͓ǂݎp̃vpeBłB</p>



</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<p>Ȃ</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>̃R[h́AFileSystemObject  TextStream IuWFNgCX^X܂B̌ARead \bhgpāAs̖ɓB܂ňx 1 ǂݎ܂BAtEndOfStream vpeB AtEndOfLine vpeB̎gp@Ƃ܂B</p>




<span class="PROGRAMLISTING"><pre>&lt;%

' Set up constants.
Const constForReading       = 1 
Const constTristateFalse    = 0

' Dimension local variables. 
Dim fsoObject     ' FileSystemObject
Dim tsObject      ' TextStream Object
Dim strReturned   ' String variable to hold file contents

' Instantiate the FileSystemObject variable.
Set fsoObject = Server.CreateObject( _
                "Scripting.FileSystemObject")
' Using the OpenTextFile method of fsoObject,
' create a text file.
Set tsObject = _
    fsoObject.OpenTextFile("d:\docs\test.txt", _
    constForReading, constTristateFalse)

' Read one character at a time until the end of the 
' line has been reached.
Do While Not tsObject.AtEndOfLine
   StrReturned = strReturned &amp; tsObject.Read(1)
Loop
<lineannotation>. . . [additional code]</lineannotation>

%&gt;</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>ǂݎȊO̖ړIŊJeLXgt@C AtEndOfLine vpeBgp悤ƂƁAG[܂B</p>




<p>AtEndOfLine vpeB́At@C̍ŌɓBƂʒm܂B</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="AtEndOfStreamTextStreamObject">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
AtEndOfStream (TextStream IuWFNg)</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><var class="replaceable">tsObj</var><span class="LITERAL">.AtEndOfStream</span>
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p>݂̃eLXgt@C̍ŌɓBǂu[lłB͓ǂݎp̃vpeBłB</p>



</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<p>Ȃ</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>̃R[h́AFileSystemObject  TextStream IuWFNgCX^X܂B̌ARead \bhgpāAt@C̍ŌɓB܂ňx 1 ǂݎ܂BAtEndOfStream vpeB AtEndOfLine vpeB̎gp@Ƃ܂B</p>




<span class="PROGRAMLISTING"><pre>&lt;%

' Set up constants.
Const constForReading      = 1 
Const constTristateFalse    = 0

' Dimension local variables. 
Dim fsoObject     ' FileSystemObject
Dim tsObject      ' TextStream Object
Dim strReturned   ' String variable to hold file contents.

' Instantiate the FileSystemObject variable.
Set fsoObject = Server.CreateObject( _
                "Scripting.FileSystemObject")
' Using the OpenTextFile method of fsoObject, create 
' a text file.
Set tsObject = _
    fsoObject.OpenTextFile("d:\docs\test.txt", _
    constForReading, constTristateFalse)

' Read one character at a time until the end of the 
' file has been reached
Do While Not tsObject.AtEndOfStream
   StrReturned = strReturned &amp; tsObject.Read(1)
Loop
<lineannotation>. . . [additional code]</lineannotation>

%&gt;</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>ǂݎȊO̖ړIŊJeLXgt@C AtEndOfStream vpeBgp悤ƂƁAG[܂B</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="AttributesFileObjectFolderObject">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
Attributes (File IuWFNgAFolder IuWFNg)</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><span class="PROGRAMLISTING"><pre>Normal</pre></span></td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p>܂܂ȃt@CVXȇ\l̑gݍ킹ێ鐮łB̃vpeB́AYt@CɂēǂݎpA܂͓ǂݏ\ɂȂ܂B</p>




<p>̕\ɁAAttributes vpeBێłl܂BFile IuWFNg܂ Folder IuWFNgɓ̒lێĂ邩ǂ𔻒fɂ́ArbgƂ <span class="LITERAL">And</span> ZqgpāAAttributes vpeB̒lƊ֐Ŝ̒萔r܂Bʂ <span class="LITERAL">True</span> ̏ꍇAY鑮 <span class="LITERAL">True</span> ƂȂ܂B̗QƂĂB</p>




<table border="1">




<thead>
<tr valign="top">
<td>
<p>Attributes 萔</p></td>
<td>
<p>l</p></td>
<td>
<p></p></td>
</tr>



</thead>



<tbody>
<tr valign="top">
<td>
<span class="PROGRAMLISTING"><pre>Normal</pre></span></td>
<td>
<p>0</p></td>
<td>
<p>͐ݒ肳܂B</p></td>
</tr>



<tr valign="top">
<td>
<span class="PROGRAMLISTING"><pre>ReadOnly</pre></span></td>
<td>
<p>1</p></td>
<td>
<p>ǂݎpB͓̑ǂݏ\łB</p></td>
</tr>



<tr valign="top">
<td>
<span class="PROGRAMLISTING"><pre>Hidden</pre></span></td>
<td>
<p>2</p></td>
<td>
<p>\B͓̑ǂݏ\łB</p></td>
</tr>



<tr valign="top">
<td>
<span class="PROGRAMLISTING"><pre>System</pre></span></td>
<td>
<p>4</p></td>
<td>
<p>VXet@CB̑ File IuWFNgɑ΂Ă̂ݗLŁAǂݏ\łB</p></td>
</tr>



<tr valign="top">
<td>
<span class="PROGRAMLISTING"><pre>Volume</pre></span></td>
<td>
<p>8</p></td>
<td>
<p>hCũ{[xB͓̑ǂݎpłB</p></td>
</tr>



<tr valign="top">
<td>
<span class="PROGRAMLISTING"><pre>Directory</pre></span></td>
<td>
<p>16</p></td>
<td>
<p>fBNgB͓̑ǂݎpłB</p></td>
</tr>



<tr valign="top">
<td>
<span class="PROGRAMLISTING"><pre>Archive</pre></span></td>
<td>
<p>32</p></td>
<td>
<p>A[JCuς݁B͓̑ǂݏ\łB</p></td>
</tr>



<tr valign="top">
<td>
<span class="PROGRAMLISTING"><pre>Alias</pre></span></td>
<td>
<p>64</p></td>
<td>
<p>ʂ̃t@C̃N܂̓V[gJbgB̑ File IuWFNgɑ΂Ă̂ݗLŁAǂݎpłB</p></td>
</tr>



<tr valign="top">
<td>
<span class="PROGRAMLISTING"><pre>Compressed</pre></span></td>
<td>
<p>128</p></td>
<td>
<p>kς݁B̑ File IuWFNgɑ΂Ă̂ݗLŁAǂݎpłB</p></td>
</tr>



</tbody>

</table>
</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<dl>
<dt><var class="replaceable">intNewAttributes</var></dt>
<dd><p>t@C܂̓tH_̑̍vێ鐮łBƂ΁AArchived  Hidden  <span class="LITERAL">True</span> ɐݒ肷ꍇA<var class="replaceable">intNewAttributes</var> ̒ĺA<span class="LITERAL">Hidden + Archive</span>A܂ 34 (2 + 32) ɂȂ܂BAttributes vpeBɊ蓖ĂƁA̐ 2 ̑ <span class="LITERAL">True</span> ɐݒ肵܂B</p></dd>

</dl>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>̃R[h́Aŏ File IuWFNgŁA Folder IuWFNg Attributes vpeBgp܂B</p>




<span class="PROGRAMLISTING"><pre>&lt;%

' Dimension local variables. 
Dim fsoObject   ' FileSystemObject
Dim filObject   ' File Object
Dim fdrObject   ' Folder Object

' Declare constants.
Const Hidden = 2
Const Archive = 32

' Instantiate the FileSystemObject variable.
Set fsoObject = Server.CreateObject( _
                "Scripting.FileSystemObject")
' Using the GetFile method of fsoObject, initialize the 
' File object.
Set filObject = fsoObject.GetFile("d:\docs\test.txt")

' Set the Hidden (value = 2) and Archive (value = 32) 
' attributes for the Test.TXT file.
filObject.Attributes = (Hidden + Archive)

' Using the GetFolder method of fsoObject, initialize 
' the Folder object.
Set fdrObject = fsoObject.GetFolder("d:\docs")

' Determine whether the folder is itself hidden.
If (fdrObject.Attributes And Archive) Then
   ' Folder is hidden.
Else
   ' Folder is NOT hidden.
End If
<lineannotation>. . . [additional code]</lineannotation>

%&gt;</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>File IuWFNĝ݂ǂݎp Folder IuWFNgŎgp悤ƂƁAʂ͏ <span class="LITERAL">False</span> lƂȂ܂BAFile IuWFNg܂ Folder IuWFNgp̂ꂩ̓ǂݎpݒ肵悤ƂƁAʂ̓G[ɂȂ܂B</p>




<p>t@CANZXR|[lgŎgp萔́AIɐ錾Kv܂B





</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="AvailableSpaceDriveObject">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
AvailableSpace (Drive IuWFNg)</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><var class="replaceable">drvObj</var><span class="LITERAL">.</span><!--<primary>AvailableSpace property (Drive)</primary>-->
<!--<primary>physical drives</primary><secondary>disk space remaining</secondary>-->
<!--<primary>drives</primary><secondary>disk space remaining</secondary>-->
<!--<primary>disk space on drives</primary>--><span class="LITERAL">AvailableSpace</span>
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p>݂̃hCuɎcĂ̈̃oCgłBgp\ȗ̈悪 2GB 𒴂hCȕꍇA͕̐smłB͓ǂݎp̃vpeBłB</p>




</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<p>Ȃ</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<span class="PROGRAMLISTING"><pre>&lt;%
' Dimension local variables. 
Dim fsoObject       ' FileSystemObject
Dim drvObject       ' Drive Object
Dim lngAvailBytes   ' Number of bytes available

' Instantiate the FileSystemObject variable.
Set fsoObject = Server.CreateObject( _
                "Scripting.FileSystemObject")
' Using the GetDrive method of fsoObject, initialize a 
' Drive object.
Set drvObject = fsoObject.GetDrive("\\PublicDocs")
' Retrieve the amount of space (in bytes) available 
' on the drive.
lngAvailBytes = drvObject.AvailableSpace
<lineannotation>. . . [additional code]</lineannotation>

%&gt;</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>AvailableSpace vpeB̒l FreeSpace vpeB̒lقȂ̂́AhCuNI[^T|[gĂꍇłBۏA 2 ̃vpeB݊IɎgpł܂B</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="DateCreatedFileObjectFolderObject">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
DateCreated (File IuWFNgAFolder IuWFNg)</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><var class="replaceable">Obj</var><span class="LITERAL">.DateCreated</span><!--<primary>DateCreated property</primary>-->
<!--<primary>files</primary><secondary>date created</secondary>-->
<!--<primary>folders</primary><secondary>date created</secondary>-->
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p>t@C܂̓tH_쐬ꂽt\tlłB̓Iy[eBOVXeŐ䂳ǂݎplłB</p>




</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<p>Ȃ</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<span class="PROGRAMLISTING"><pre>&lt;%

' Dimension local variables. 
Dim fsoObject    ' FileSystemObject.
Dim fdrObject    ' Folder object.
Dim datCreated   ' Date variable.

' Instantiate the FileSystemObject variable.
Set fsoObject = Server.CreateObject( _
                "Scripting.FileSystemObject")
' Using the GetFolder method of fsoObject, initialize 
' a Folder object
Set fdrObject = fsoObject.GetFolder("c:\Docs")
' Retrieve the date the folder was created.
datCreated = fdrObject.DateCreated
<lineannotation>. . . [additional code]</lineannotation>

%&gt;</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>̃vpeB̒ĺAt@C݂̃hCuɏ܂ꂽtłȂAt@C쐬ꂽt܂B</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="DriveFileObjectFolderObject">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
Drive (File IuWFNgAFolder IuWFNg)</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><var class="replaceable">Obj</var><span class="LITERAL">.Drive</span><!--<primary>Drive property</primary>-->
<!--<primary>drives</primary><secondary sortas="particular file system objects">for particular file system objects</secondary>-->
<!--<primary>physical drives</primary><secondary sortas="particular file system objects">for particular file system objects</secondary>-->
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p>File IuWFNg܂ Folder IuWFNg֘AtĂ Drive Ԃ܂B̃vpeB͓ǂݎpłB</p>




</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<p>Ȃ</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<span class="PROGRAMLISTING"><pre>&lt;%

' Dimension local variables. 
Dim fsoObject     ' FileSystemObject
Dim filObject     ' File Object
Dim objDrive      ' Drive name

' Instantiate the FileSystemObject variable.
Set fsoObject = Server.CreateObject( _
                "Scripting.FileSystemObject")
' Using the GetFile method of fsoObject, initialize 
' a File object.
Set filObject = fsoObject.GetFile("PublicDocs.txt")
' Retrieve the drive name with which the File object 
' is associated.
Set objDrive = filObject.Drive
' Note that this drive is actually the current drive 
' in this case.
<lineannotation>. . . [additional code]</lineannotation>

%&gt;</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>Drive vpeB́AhCuA[JhCuA}bvhCuA܂̓lbg[NL\Ƃł܂B</p>




<p>Drive IuWFNg̃ftHg̃vpeB Path ł邽߁Â悤ɃhCu𕶎Ɋ蓖Ă邱Ƃł܂B</p>




<span class="PROGRAMLISTING"><pre>strDrive = filObject.Drive</pre></span>




<p>́Aۂɂ͎̊ȗo[WłB</p>




<span class="PROGRAMLISTING"><pre>strDrive = filObject.Drive.Path</pre></span>




<p>ADrive IuWFNg𑀍삷ꍇA<span class="LITERAL">Set</span> Xe[gggpāAIuWFNgϐւ̎QƂ蓖ĂKv܂Bɗ܂B</p>




<span class="PROGRAMLISTING"><pre>Set objDrive = filObject.Drive</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="FileSystemDriveObject">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
FileSystem (Drive IuWFNg)</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><var class="replaceable">drvObj</var><span class="LITERAL">.FileSystem</span><!--<primary>FileSystem property (Drive)</primary>-->
<!--<primary>drives</primary><secondary>format type</secondary>-->
<!--<primary>physical drives</primary><secondary>format type</secondary>-->
<!--<primary>format</primary><secondary>physical drives</secondary>-->
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p>݂̃hCutH[}bgt@CVXe^Cv\łBFłt@CVXe^Cv́ACDFSANTFSAFATA FAT32 łB͓ǂݎp̃vpeBłB</p>




</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<p>Ȃ</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<span class="PROGRAMLISTING"><pre>&lt;%

' Dimension local variables. 
Dim fsoObject      ' FileSystemObject
Dim drvObject      ' Drive Object
Dim strFileSys     ' File system of drive

' Instantiate the FileSystemObject variable.
Set fsoObject = Server.CreateObject( _
                "Scripting.FileSystemObject")
' Using the GetDrive method of fsoObject, initialize 
' a Drive object.
Set drvObject = fsoObject.GetDrive("\\PublicDocs")
' Retrieve the file system for the drive. This value 
' will contain one of the following strings: 
' NTFS, FAT, or CDFS. 
strFileSys = drvObject.FileSystem
<lineannotation>. . . [additional code]</lineannotation>

%&gt;</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>Drive IuWFNg FileSystem vpeB̒lgpƁÃ݂hCuŗpłNX^[TCYƃZLeB@\𔽉f邱Ƃł܂B</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="IsReadyDriveObject">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
IsReady (Drive IuWFNg)</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><var class="replaceable">drvObj</var><span class="LITERAL">.IsReady</span><!--<primary>IsReady property (Drive)</primary>-->
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p>݂̃hCuǂݎ\܂͏݉\\u[lłB̃vpeBgpƁAƂ΁AhCuɃtbs[fBXN܂ CD }Ă邩ǂ𔻒fł܂B͓ǂݎp̃vpeBłB</p>




</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<p>Ȃ</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<span class="PROGRAMLISTING"><pre>&lt;%

' Dimension local variables. 
Dim fsoObject      ' FileSystemObject
Dim drvObject      ' Drive Object

' Instantiate the FileSystemObject variable.
Set fsoObject = Server.CreateObject(
                "Scripting.FileSystemObject")
' Using the GetDrive method of fsoObject, initialize a 
' Drive object.
Set drvObject = fsoObject.GetDrive("\\PublicDocs")
' Check to see if the drive is ready.
If drvObject.IsReady Then
   ' Drive is ready for read/write.
Else
   ' Drive is not ready.
End If
<lineannotation>. . . [additional code]</lineannotation>

%&gt;</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>炩̃hCuANZXsOɁAIsReady vpeBgp邱Ƃ߂܂B̃vpeB́A[oufBAhCu (tbs[hCu CD-ROM hCu) ьŒ胁fBAhCȕłĂ邩ǂ𔻕ʂł܂B</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="IsRootFolderFolderObject">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
IsRootFolder (Folder IuWFNg)</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><var class="replaceable">fdr</var><span class="LITERAL">.IsRootFolder</span><!--<primary>IsRootFolder property (Folder)</primary>-->
<!--<primary>folders</primary><secondary>determining if root</secondary>-->
<!--<primary>root folder</primary>-->
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p>݂̃tH_[gtH_ǂ𔻒fłu[lłB͓ǂݎp̃vpeBłB</p>




</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<p>Ȃ</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<span class="PROGRAMLISTING"><pre>&lt;%

' Dimension local variables. 
Dim fsoObject      ' FileSystemObject
Dim fdrObject      ' Folder Object

' Instantiate the FileSystemObject variable.
Set fsoObject = Server.CreateObject( _
                "Scripting.FileSystemObject")
' Using the GetFolder method of fsoObject, initialize a 
' File object.
Set fdrObject = fsoObject.GetFolder("PublicDocs.txt")
' Determine whether the current folder is a root folder
' or if it is nested.
If fdrObject.IsRootFolder Then
   ' Folder is located directly off the drive letter 
   ' or share name.
Else
   ' The folder is nested within at least one other 
   ' folder.
End If
<lineannotation>. . . [additional code]</lineannotation>

%&gt;</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>Microsoft ̃}jAɂ́ÃvpeBgpČ݂̃tH_lXgĂ郌x𔻕ʂ@ɂċLڂĂ܂B֋XIɁA̕@̃R[hŎ܂B</p>




<span class="PROGRAMLISTING"><pre>&lt;%

' Dimension local variables. 
Dim fsoObject      ' FileSystemObject
Dim fdrObject      ' Folder Object
Dim intNestedLevel ' Level to which the folder is nested

' Instantiate the FileSystemObject variable.
Set fsoObject = Server.CreateObject( _
                "Scripting.FileSystemObject")
' Using the GetFolder method of fsoObject, initialize a 
' File object.
Set fdrObject = fsoObject.GetFolder("PublicDocs.txt")
' Determine whether the current folder is a root folder
' or if it is nested.
If fdrObject.IsRootFolder Then
   ' Folder is located directly off the drive letter or 
   ' share name.
Else
   ' For more on the ParentFolder property of the 
   ' Folder object, see the following.
   Do Until fdrObject.IsRootFolder
      Set fdrObject = fdrObject.ParentFolder
      intNestedLevel = intNestedLevel + 1
   Loop
End If
<lineannotation>. . . [additional code]</lineannotation>

%&gt;</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="ParentFolderFileObjectFolderObject">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
ParentFolder (File IuWFNgAFolder IuWFNg)</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><var class="replaceable">Obj</var><span class="LITERAL">.ParentFolder</span><!--<primary>ParentFolder object (Folder)</primary>-->
<!--<primary>folders</primary><secondary>parent folders</secondary>-->
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p>t@C܂̓tH_uĂtH_\ Folder IuWFNgԂ܂B͓ǂݎp̃vpeBłB</p>




</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<p>Ȃ</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">





<p>̃R[h́Aŏ File IuWFNgŁA Folder IuWFNgŎgpۂ ParentFolder vpeB̎gp@܂BName  Folder IuWFNg̃ftHg̃vpeBł邽߁AASP y[W̃R[h́AParentFolder vpeBԂl𕶎Ƃď邱ƂɂȂ܂B</p>




<span class="PROGRAMLISTING"><pre>&lt;%

' Dimension local variables. 
Dim fsoObject        ' FileSystemObject
Dim filObject        ' File Object
Dim fdrObject        ' Folder Object
Dim strFileParent    ' Parent folder of file object
Dim strFolderParent  ' Parent folder of folder object

' Instantiate the FileSystemObject variable.
Set fsoObject = Server.CreateObject( _
                "Scripting.FileSystemObject")
' Using the GetFile method of fsoObject, initialize the 
' File object.
Set filObject = fsoObject.GetFile("d:\docs\test.txt")

' Retrieve the name of the folder containing the file Test.TXT.
' In this example, the value of strFileParent is "docs".
strFileParent = filObject.ParentFolder
' Using the GetFolder method of fsoObject, initialize 
' the Folder object.
Set fdrObject = fsoObject.GetFolder("d:\mystuff\docs")

' Retrieve the name of the folder that contains the 
' folder "docs". In this example, the value of 
' strFileParent is "mystuff".
strFolderParent = fdrObject.ParentFolder
<lineannotation>. . . [additional code]</lineannotation>

%&gt;</pre></span>



</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="CloseTextStreamObject">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">Close (TextStream IuWFNg)</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><var class="replaceable">tsObj</var><span class="LITERAL">.Close</span><!--<primary>Close method</primary><secondary>TextStream object</secondary>-->
<!--<primary>files</primary><secondary>opening/closing</secondary>-->
<!--<primary>closing</primary><secondary>text files</secondary>-->
<!--<primary>TextStream object</primary><secondary>closing</secondary>-->
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p>TextStream IuWFNgƂĊJꂽeLXgt@C܂B</p>




</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<p>Ȃ</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<span class="PROGRAMLISTING"><pre>&lt;%

' Dimension local variables. 
Dim fsoObject   ' FileSystemObject
Dim tsObject    ' TextStream Object

' Instantiate the FileSystemObject variable.
Set fsoObject = Server.CreateObject( _
                "Scripting.FileSystemObject")
' Using the OpenTextFile method of fsoObject, initialize 
' the File object.
Set tsObject = fsoObject.OpenTextFile( _
               "d:\docs\test.txt", ForReading, False)

' Read into the string the contents of the text file.
strContents = tsObject.ReadAll
' Close the open text file.
tsObject.Close
<lineannotation>. . . [additional code]</lineannotation>

%&gt;</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>Visual Basic ł̊JĂt@C̎gp@ƓlɁAAvP[VŋI[vt@C͌Ă邽߁AIJĂeLXgt@Cׂĕ邱ƂdvłB</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="CopyFileObjectFolderObject">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
Copy (File IuWFNgAFolder IuWFNg)</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><var class="replaceable">obj</var><span class="LITERAL">.Copy</span><!--<primary>Copy method</primary><secondary>File object</secondary>-->
<!--<primary>Copy method</primary><secondary>Folder object</secondary>-->
<!--<primary>files</primary><secondary>copying</secondary>-->
<!--<primary>folders</primary><secondary>copying</secondary>-->
<!--<primary>copying</primary><secondary>files and
folders</secondary>-->
<var class="replaceable">strDestination</var> <span class="LITERAL">[,</span> <var class="replaceable">blnOverWrite</var><span class="LITERAL">]</span>
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p>t@Cꏊʂ̏ꏊփRs[܂B</p>




</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<dl>
<dt><var class="replaceable">strDestination</var></dt>
<dd><p>݂̃t@C̃Rs[̊SpX\łB</p></dd>




<dt><var class="replaceable">blnOverWrite</var></dt>
<dd><p>Rs[Ώۂ̃t@CƓÕt@C㏑邩ǂu[lłBftHgl <span class="LITERAL">True</span> łB</p></dd>

</dl>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<span class="PROGRAMLISTING"><pre>&lt;%

' Dimension local variables. 
Dim fsoObject   ' FileSystemObject
Dim filObject   ' File Object

' Instantiate the FileSystemObject variable.
Set fsoObject = Server.CreateObject( _
                "Scripting.FileSystemObject")
' Using the GetFile method of fsoObject, initialize 
' the File object.
Set filObject = fsoObject.GetFile("d:\docs\test.txt")

' Copy the file to a temporary directory.
filObject.Copy "e:\storage\temp\test_copy.txt", True
<lineannotation>. . . [additional code]</lineannotation>

%&gt;</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>Copy \bh́AFileSystemObject IuWFNg CopyFile \bh CopyFolder \bhƂ܂@\s܂BACopyFile \bh CopyFolder \bhł́Ãt@CtH_xɃRs[ł邱ƂɒӂKv܂B</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="CopyFolderFileSystemObjectObject">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
CopyFolder (FileSystemObject IuWFNg)</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><var class="replaceable">fsoObj</var><span class="LITERAL">.CopyFolder</span><!--<primary>CopyFolder method
(FileSystemObject)</primary>-->
<var class="replaceable">strSource</var>, <var class="replaceable">strDestination</var> <span class="LITERAL">[,</span> <var class="replaceable">blnOverWrite</var><span class="LITERAL">]</span>
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p>tH_Ƃׂ̂ẴRecꏊʂ̏ꏊփRs[ł܂B</p>




</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<dl>
<dt><var class="replaceable">strSource</var></dt>
<dd><p>tH_̃Rs[̊SpX\łB<var class="replaceable">strSource</var> ɂ́AChJ[hwł܂B</p></dd>




<dt><var class="replaceable">strDestination</var></dt>
<dd><p><var class="replaceable">strSource</var> Ŏw肳ꂽtH_̃Rs[̊SpX\łB</p></dd>




<dt><var class="replaceable">blnOverWrite</var></dt>
<dd><p>Rs[Ώۂ̃t@CƓÕt@C㏑邩ǂu[lłBftHgl <span class="LITERAL">True</span> łB</p></dd>

</dl>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<span class="PROGRAMLISTING"><pre>&lt;%

' Dimension local variables. 
Dim fsoObject   ' FileSystemObject
' Instantiate the FileSystemObject variable.
Set fsoObject = Server.CreateObject( _
                "Scripting.FileSystemObject")
' Use the FileSystemObject object's CopyFolder method
' to copy the Temp directory and all its contents from
' the C drive to the D drive, overwriting if necessary.
fsoObject.CopyFolder "c:\temp", "d:\temp", True
<lineannotation>. . . [additional code]</lineannotation>

%&gt;</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>CopyFolder ̌ĂяoŃG[ƁÃ\bh͂ɒ~AɎsς݂̃ANVɖ߂Ƃ͂܂B</p>




<p>CopyFolder \bh̑́AR}hsɂtH_̃Rs[Ɠx̑łB





</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="CreateFolderFileSystemObjectObject">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
CreateFolder (FileSystemObject IuWFNg)</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><var class="replaceable">fsoObj</var><span class="LITERAL">.CreateFolder(</span><!--<primary>CreateFolder method (FileSystemObject)</primary>-->
<!--<primary>folders</primary><secondary>creating new</secondary>--><var class="replaceable">strFolderName</var><span class="LITERAL">)</span>
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p>tH_w肳ꂽꏊɍ쐬܂B</p>




</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<dl>
<dt><var class="replaceable">strFolderName</var></dt>
<dd><p>쐬tH_̊SpX\łB</p></dd>

</dl>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<span class="PROGRAMLISTING"><pre>&lt;%

' Dimension local variables. 
Dim fsoObject   ' FileSystemObject
' Instantiate the FileSystemObject variable.
Set fsoObject = Server.CreateObject( _
                "Scripting.FileSystemObject")
' Create a new directory.
fsoObject.CreateFolder("e:\storage\newdir")
<lineannotation>. . . [additional code]</lineannotation>

%&gt;</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>ɑ݂ĂtH_쐬悤ƂƁAG[܂B</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="DeleteFileObjectFolderObject">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
Delete (File IuWFNgAFolder IuWFNg)</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><var class="replaceable">Obj</var><span class="LITERAL">.Delete</span><!--<primary>Delete method</primary><secondary>File object</secondary>-->
<!--<primary>Delete method</primary><secondary>Folder object</secondary>-->
<!--<primary>files</primary><secondary>deleting</secondary>-->
<!--<primary>folders</primary><secondary>deleting</secondary>-->
<!--<primary>deleting</primary><secondary>files and folders</secondary>--> <var class="replaceable">blnForce</var>
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p>t@C܂̓tH_폜܂B</p>




</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<dl>
<dt><var class="replaceable">blnForce</var></dt>
<dd><p>ǂݎp̃}[NtĂꍇłt@C܂̓tH_폜邩ǂu[lłB</p></dd>

</dl>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<span class="PROGRAMLISTING"><pre>&lt;%

' Dimension local variables. 
Dim fsoObject   ' FileSystemObject
Dim filObject   ' File Object

' Instantiate the FileSystemObject variable.
Set fsoObject = Server.CreateObject( _
                "Scripting.FileSystemObject")
' Using the GetFile method of fsoObject, initialize the 
' File object.
Set filObject = fsoObject.GetFile("d:\docs\test.txt")

' Delete the TEST.TXT file--even if the file is marked 
' as read-only.
filObject.Delete True
<lineannotation>. . . [additional code]</lineannotation>

%&gt;</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>File IuWFNg Folder IuWFNg Delete \bh́AFileSystemObject IuWFNg DeleteFile \bh DeleteFolder \bhƋ@\Iɂ͓łBFolder IuWFNg Delete \bhgpƁAYtH_Ƃׂ̂ẴRec폜܂B̃\bh́At@C܂ރfBNg폜悤ƂĂxo܂B</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="GetBaseNameFileSystemObjectObject">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
GetBaseName (FileSystemObject IuWFNg)</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><var class="replaceable">fsoObj</var><span class="LITERAL">.GetBaseName(</span><!--<primary>GetBaseName method (FileSystemObject)</primary>-->
<!--<primary>files</primary><secondary>names of</secondary>-->
<!--<primary>names</primary><secondary>files and folders</secondary>--><var class="replaceable">strPath</var><span class="LITERAL">)</span>
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p>St@CpX "t@Cgq" t@C𒊏o܂B</p>




</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<dl>
<dt><var class="replaceable">strPath</var></dt>
<dd><p>̊{擾悤Ƃ鏊̃t@C̊St@CpX\łB</p></dd>

</dl>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<span class="PROGRAMLISTING"><pre>&lt;%

' Dimension local variables. 
Dim fsoObject   ' FileSystemObject
' Instantiate the FileSystemObject variable.
Set fsoObject = Server.CreateObject( _
                "Scripting.FileSystemObject")
' Using the GetBaseName method, retrieve the base 
' names of several path strings. 
' This example returns "searchstart" as the base name.
Response.Write fsoObject.GetBaseName( _
               "/apps/search/searchstart.asp")
' This example returns "search" as the base name.
Response.Write fsoObject.GetBaseName("/apps/search/")
' This example returns "search" as the base name.
Response.Write fsoObject.GetBaseName("/apps/search")
' This example returns "nofile" as the base name--even
' though the nofile.txt file does not exist.
fsoObject.GetBaseName("/apps/search/nofile.txt")
<lineannotation>. . . [additional code]</lineannotation>

%&gt;</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>GetBaseName ́ApX񂩂t@C̊{̎擾݂܂BpX̍Ō̗vftH_łꍇAXbV (/) ܂̓obNXbV (\) w肵ĂAtH_Ԃ܂BpX́AT[o[̎ۂ̃pXƂĂ̗LƑ݂`FbN邱Ƃ͂܂B̃\bh́ApX𕶎Ƃ݂ȂłB̂߁Ã\bh FileSystemObject IuWFNgƂ֘At邱Ƃ́At@C삪ۂɍsȂߌ𐶂݂܂B</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="GetParentFolderNameFileSystemObjectObject">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
GetParentFolderName (FileSystemObject IuWFNg)</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><var class="replaceable">fsoObj</var><span class="LITERAL">.GetFolderName (</span><!--<primary>GetFolderName method (FileSystemObject)</primary>-->
<!--<primary>folders</primary><secondary>names of</secondary>--><var class="replaceable">strPath</var><span class="LITERAL">)</span>
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p>w肳ꂽpX̍Ō̐etH_̖O𔻕ʂ܂B</p>




</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<dl>
<dt><var class="replaceable">strPath</var></dt>
<dd><p>̐etH_擾悤ƂÃt@C܂̓tH_̊St@CpX\łB</p></dd>

</dl>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<span class="PROGRAMLISTING"><pre>&lt;%

' Dimension local variables. 
Dim fsoObject   ' FileSystemObject
' Instantiate the FileSystemObject variable.
Set fsoObject = Server.CreateObject(
                "Scripting.FileSystemObject")
' Using the GetParentFolderName method, retrieve the 
' parent folder names of several path strings. 
' This example returns "search" as the parent folder
' name.
Response.Write fsoObject.GetParentFolderName( _
               "/apps/search/searchstart.asp")
' This example return "apps" as the parent folder name
Response.Write fsoObject.GetParentFolderName ("/apps/search/")
' This example also returns "apps" as the parent folder 
' name.
Response.Write fsoObject.GetParentFolderName ("/apps/search")
' This example returns "nofile" as the parent folder 
' name--even though nofile.txt does not exist.
Response.Write fsoObject.GetParentFolderName( _
               "/apps/search/nofile.txt")
<lineannotation>. . . [additional code]</lineannotation>

%&gt;</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>FileSystemObject IuWFNg GetBaseName \bhƓlɁAGetParentFolderName \bh̓pX񎩐gł̂ݓ삵܂BpXp[^̗LƑ݂`FbN邱Ƃ͂܂B



</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="GetSpecialFolderFileSystemObjectObject">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
GetSpecialFolder (FileSystemObject IuWFNg)</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><var class="replaceable">fsoObj</var>.<span class="LITERAL">GetSpecialFolder</span><!--<primary>GetSpecialFolder method (FileSystemObject)</primary>-->
<!--<primary>web servers</primary><secondary>special folders on</secondary>--> <span class="LITERAL">(</span><var class="replaceable">intSpecialFolderType</var><span class="LITERAL">)</span>
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p>Web T[o[̓ʂȃtH_̊SpX擾܂B</p>




</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<dl>
<dt><var class="replaceable">intSpecialFolderType</var></dt>
<dd><p>̊SpX擾ʂȃtH_̃^Cv\łB̃p[^Ɏwłl͎̂ƂłB</p></dd>

</dl>




<table border="1">




<thead>
<tr valign="top">
<td>
<p>萔</p></td>
<td>
<p>l</p></td>
<td>
<p></p></td>
</tr>



</thead>



<tbody>
<tr valign="top">
<td>
<p><span class="LITERAL">WindowsFolder</span></p></td>
<td>
<p>0</p></td>
<td>
<p>Iy[eBOVXeCXg[ <!--<primary>Windows folder</primary>-->
<!--<primary>WinNT folder</primary>-->Windows tH_܂ WinNT tH_</p></td>
</tr>



<tr valign="top">
<td>
<p><span class="LITERAL">SystemFolder</span></p></td>
<td>
<p>1</p></td>
<td>
<p>CuƃfoCXhCoCXg[Ă<!--<primary>System folder</primary>-->VXetH_</p></td>
</tr>



<tr valign="top">
<td>
<p><span class="LITERAL">TemporaryFolder</span></p></td>
<td>
<p>2</p></td>
<td>
<p>ϐŐ錾Ă<!--<primary>Temp folder</primary>-->ꎞtH_</p></td>
</tr>



</tbody>

</table>

</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<span class="PROGRAMLISTING"><pre>&lt;%

' Dimension local variables. 
Dim fsoObject   ' FileSystemObject
' Declare file constants.
Const WindowsFolder   = 0
Const SystemFolder    = 1
Const TemporaryFolder = 2

' Instantiate the FileSystemObject variable.
Set fsoObject = Server.CreateObject( _
                "Scripting.FileSystemObject")
' Use GetSpecialFolder to retrieve the physical path
' for the Windows, System, and Temp directories. 
' This example returns something similar to "C:\WINNT". 
fsoObject.GetSpecialFolder(WindowsFolder)
' This example returns something similar to 
' "C:\WINNT\SYSTEM32". 
fsoObject.GetSpecialFolder(SystemFolder)

' This example returns something similar to 
' "C:\WINNT\TEMP" 
fsoObject.GetSpecialFolder(TemporaryFolder)
<lineannotation>. . . [additional code]</lineannotation>

%&gt;</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>t@CANZXR|[lgŎgp萔́AIɐ錾Kv܂B</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="MoveFolderFileSystemObjectObject">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
MoveFolder (FileSystemObject IuWFNg)</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><var class="replaceable">fsoObj</var><span class="LITERAL">.MoveFolder</span><!--<primary>MoveFolder method (FileSystemObject)</primary>-->
<!--<primary>folders</primary><secondary>moving</secondary>-->
<!--<primary>moving</primary><secondary>files and folders</secondary>-->
<!--<primary>files</primary><secondary>moving</secondary>--> <var class="replaceable">strSourcePath</var>, <var class="replaceable">strDestinationPath</var>
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p>tH_Ƃׂ̂ẴRecꏊʂ̏ꏊֈړ܂B</p>




</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<dl>
<dt><var class="replaceable">strSourcePath</var></dt>
<dd><p>ړΏۂ̃tH_ւ̃pX\łBChJ[hwł̂́ApX̍Ō̃ZOg <var class="replaceable">strSourcePath</var> p[^݂̂łB</p></dd>




<dt><var class="replaceable">strDestinationPath</var></dt>
<dd><p><var class="replaceable">strSourcePath</var> p[^ŎQƂtH_̈ړ̃pX\łB<var class="replaceable">strDestinationPath</var> p[^ɂ́AChJ[hwł܂B</p></dd>

</dl>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<span class="PROGRAMLISTING"><pre>&lt;%

' Dimension local variables. 
Dim fsoObject   ' FileSystemObject
' Instantiate the FileSystemObject variable.
Set fsoObject = Server.CreateObject( _
                "Scripting.FileSystemObject")
' Using the MoveFolder method, move all the folders 
' under C:\APPS to the D: drive.
fsoObject.MoveFolder "C:\APPS\*.*", "D:\"
<lineannotation>. . . [additional code]</lineannotation>

%&gt;</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>tH_Ƀt@CƂȂĂ鈶Ɉړ悤ƂƁAG[܂Bw肷鈶悪̃tH_̖O\ĂꍇA\[Xp[^ChJ[h܂̓obNXbV (\) ŏIĂȂAG[܂B̏ꍇA\[XtH_Ƃׂ̂ẴRećAtH_Ɉړ܂BƂ΁ÃR[hł̓G[܂B</p>




<span class="PROGRAMLISTING"><pre>&lt;%
' Assume FileSystemObject object is instantiated
'already. Also assume that D:\ apps already exists.
fsoObject.MoveFolder "C:\apps", "d:\apps"
%&gt;</pre></span>




<p>ÃR[hł̓G[͔܂B</p>




<span class="PROGRAMLISTING"><pre>&lt;%
' Assume FileSystemObject object is instantiated
' already. Also assume that D:\ apps already exists.
fsoObject.MoveFolder "C:\apps\*.*", "d:\apps"
' This last line create an apps folder in the D:\apps 
' folder (making D:\apps\apps)
%&gt;</pre></span>




<p>MoveFolder ̌Ăяo Web T[o[ŃG[ꍇAׂẴANV~܂BÕANṼ[obN͍s܂BƂ΁A3 ̈ÃtH_ׂ̂ẴRecƋɈړ悤ƂāAړΏۂ 3 Ԗڂ̃tH_ŃG[ꍇA3 Ԗڂ̃tH_ړĂȂԂłAŏ 2 ̃tH_͈ړꂽ܂܂̏ԂɂȂ܂BۂɈړꂽt@CtH_AшړĂȂt@CtH_`FbNɂ́AƎ̃R[hw肷Kv܂B</p>




<p>{[ԂŃtH_ړꍇAɂȂIy[eBOVXȇT|[gAWeb T[o[̃[U[ZLeBł̑eKv܂B</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="OpenAsTextStreamFileObject">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
OpenAsTextStream (File IuWFNg)</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><span class="LITERAL">tsObject =</span><var class="replaceable">filObj</var><span class="LITERAL">.OpenAsTextStream [</span><!--<primary>OpenAsTextStream method (File)</primary>-->
<!--<primary>files</primary><secondary>opening/closing</secondary>-->
<!--<primary>opening</primary><secondary>text files</secondary>-->
<!--<primary>TextStream
object</primary><secondary>opening</secondary>--><var class="replaceable">intAccessMode</var><span class="LITERAL">][,</span> <var class="replaceable">intFormat</var><span class="LITERAL">]</span>
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p>t@CJAeLXgt@C̓ǂݎ܂͕ύXs TextStream IuWFNg쐬܂B̃\bh TextStream IuWFNgԂ܂B</p>




</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<dl>
<dt><var class="replaceable">intAccessMode</var></dt>
<dd><p>eLXgt@CJo̓[hłB̃p[^Ɏwłl͎̂ƂłB</p></dd>

</dl>




<table border="1">




<thead>
<tr valign="top">
<td>
<p>萔</p></td>
<td>
<p>l</p></td>
<td>
<p></p></td>
</tr>



</thead>



<tbody>
<tr valign="top">
<td>
<p><span class="LITERAL">ForReading</span></p></td>
<td>
<p>1</p></td>
<td>
<p>t@C͓ǂݎpƂĊJA݂ TextStream IuWFNgł͕ύXł܂B</p></td>
</tr>



<tr valign="top">
<td>
<p><span class="LITERAL">ForWriting</span></p></td>
<td>
<p>2</p></td>
<td>
<p>t@C͏ݗpƂĊJ܂BOpenAsTextStream \bȟĂяoɃt@Cɑ݂ĂꍇÃt@C㏑܂B</p></td>
</tr>



<tr valign="top">
<td>
<p><span class="LITERAL">ForAppending</span></p></td>
<td>
<p>8</p></td>
<td>
<p>t@C͒ǉpƂĊJ܂B̃t@C̍Ōɕ̂ݒǉł܂B</p></td>
</tr>



</tbody>

</table>

<dl>
<dt><var class="replaceable">intFormat</var></dt>
<dd><p>TextStream IuWFNgƂĊJt@C̃tH[}bgłB̃p[^ɎwłĺAP̃gCXe[glƂ݂Ȃ܂Bt@ĆAVXeftHgƂȂĂ UnicodeAASCII ̂ꂩłB̃p[^Ɏwłl͎̂ƂłB</p></dd>

</dl>




<table border="1">




<thead>
<tr valign="top">
<td>
<p>萔</p></td>
<td>
<p>l</p></td>
<td>
<p></p></td>
</tr>



</thead>



<tbody>
<tr valign="top">
<td>
<p><span class="LITERAL">TristateUseDefault</span></p></td>
<td>
<p>-2</p></td>
<td>
<p>t@CtH[}bǵAWeb T[o[̃ftHg (Unicode ܂ ASCII) ƓłB</p></td>
</tr>



<tr valign="top">
<td>
<p><span class="LITERAL">TristateTrue</span></p></td>
<td>
<p>-1</p></td>
<td>
<p>t@CtH[}bg Unicode łB</p></td>
</tr>



<tr valign="top">
<td>
<p><span class="LITERAL">TristateFalse</span></p></td>
<td>
<p>0</p></td>
<td>
<p>t@CtH[}bg ASCII łB</p></td>
</tr>



</tbody>

</table>

</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<span class="PROGRAMLISTING"><pre>&lt;%

' Dimension local variables. 
Dim fsoObject   ' FileSystemObject
Dim filObject   ' File Object
Dim tsObject    ' TextStream object

' Declare File Access constants.
Const ForAppending = 8
Const TristateTrue = -1

' Instantiate the FileSystemObject variable.
Set fsoObject = Server.CreateObject( _
                "Scripting.FileSystemObject")
' Using the GetFile method of fsoObject, initialize the 
' File object. 
Set filObject = fsoObject.GetFile("d:\docs\test.txt")

' Use the OpenAsTextStream method to open the file for 
' appending and in Unicode format.
Set tsObject = filObject.OpenAsTextStream(ForAppending, TristateTrue)
%&gt;</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>OpenAsTextStream \bh́Aۏ FileSystemObject IuWFNg OpenTextFile \bhɑ܂BB̈Ⴂ́AOpenAsTextStream \bhł͂܂At@C݂ĂȂꍇɁAVeLXgt@C쐬ł邱ƂłB</p>




<p>t@CANZXR|[lgŎgp萔́AIɐ錾Kv܂B







</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="ReadLineTextStreamObject">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
ReadLine (TextStream IuWFNg)</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><var class="replaceable">tsObj</var><span class="LITERAL">.ReadLine</span><!--<primary>Read method</primary><secondary>TextStream object</secondary>-->
<!--<primary>ReadLine method (TextStream)</primary>-->
<!--<primary>reading</primary><secondary>text files</secondary>-->
<!--<primary>files</primary><secondary>reading from/writing to</secondary>-->
<!--<primary>TextStream object</primary><secondary>reading from/writing to</secondary>--> 
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p>ReadLine \bh́AeLXgt@C當ϐւ̓ǂݍ݁A܂͂̂悤ȓǂݍ݂̌ʂƑ̃GeBeBƂ̔r\Ƃ_ŁATextStream IuWFNg Read \bhɎĂ܂BAp[^gpēǂݎ蕶𔻒f Read \bhƂ͈قȂAReadLine \bh́Ã݂|C^ʒu玟̉s܂łׂ̂Ă̕ǂݎ܂B</p>




</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<p>Ȃ</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<span class="PROGRAMLISTING"><pre>&lt;%

' Dimension local variables. 
Dim fsoObject   ' FileSystemObject
Dim filObject   ' File Object
Dim tsObject    ' TextStream object
Dim strBuffer   ' Holding buffer

' Declare file access constants.
Const ForReading = 1
Const TristateFalse = 0

' Instantiate the FileSystemObject variable.
Set fsoObject = Server.CreateObject( _
                "Scripting.FileSystemObject")
' Using the GetFile method of fsoObject, initialize the 
' File object.
Set filObject = fsoObject.GetFile("d:\docs\test.txt")

' Use the OpenAsTextStream method to open the file for 
' reading and in ASCII format.
Set tsObject = filObject.OpenAsTextStream(ForReading, TristateFalse)
' Use the ReadLine method to read the next line of text
' from the text file into the strBuffer variable.
strBuffer = tsObject.ReadLine
%&gt;</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>ReadLine \bȟĂяoAt@C̃|C^݂̌̈ʒúAŌ̉s̒A܂̓t@C}[J[̍Ōɒu܂B</p>




<p>t@CANZXR|[lgŎgp萔́AIɐ錾Kv܂B</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="WriteTextStreamObject">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
Write (TextStream IuWFNg)</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><var class="replaceable">tsObj</var><span class="LITERAL">.Write(</span><var class="replaceable">strWriteString</var><span class="LITERAL">)</span><!--<primary>Write method</primary><secondary>TextStream object</secondary>-->
<!--<primary>writing</primary><secondary sortas="text files">to text files</secondary>-->
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p>JĂeLXgt@C̃t@C|C^݂̌̈ʒuɁAw肳ꂽ݂܂B</p>




</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<dl>
<dt><var class="replaceable">strWriteString</var></dt>
<dd><p>I[vt@CɏރeLXg\łB</p></dd>

</dl>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<span class="PROGRAMLISTING"><pre>&lt;%

' Dimension local variables. 
Dim fsoObject   ' FileSystemObject
Dim filObject   ' File Object
Dim tsObject    ' TextStream object
Dim strEnding
' Declare file access constants.
Const ForAppending = 8
Const TristateFalse = 0

' Initialize string variable. This string will be 
' written to the end of the file opened next.
strEnding = "This is the end, my only friend, the end..."
' Instantiate the FileSystemObject variable.
Set fsoObject = Server.CreateObject( _
                "Scripting.FileSystemObject")
' Using the GetFile method of fsoObject, initialize the
' File object.
Set filObject = fsoObject.GetFile("d:\docs\test.txt")

' Use the OpenAsTextStream method to open the file for 
' appending and in Unicode format.
Set tsObject = filObject.OpenAsTextStream(ForAppending, TristateFalse)
' Write a short string to the end of the opened file.
tsObject.Write strEnding
<lineannotation>. . . [additional code]</lineannotation>

%&gt;</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>Write \bh́A܂e̐擪܂͖ɉ̕zu܂B̂߁AWrite \bhgpăt@CɒǉꍇAړI̕ (󔒁AsȂ) t@Cɏޕ̐擪܂͖Ɏw肵ĂB</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="WriteLineTextStreamObject">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
WriteLine (TextStream IuWFNg)</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><var class="replaceable">tsObj</var><span class="LITERAL">.WriteLine([</span><var class="replaceable">strWriteString</var><span class="LITERAL">])</span>
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p>I[vt@C̃t@C̃|C^̈ʒuɏ݂܂B̃\bh͂܂Asǉ镶̖ɏ݂܂BȊÓAWrite \bhƂ܂łB</p>




<dl>
<dt><var class="replaceable">strWriteString</var></dt>
<dd><p>I[veLXgt@CɏރeLXg\łB</p></dd>

</dl>




</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<span class="PROGRAMLISTING"><pre>&lt;%

' Dimension local variables. 
Dim fsoObject   ' FileSystemObject
Dim filObject   ' File Object
Dim tsObject    ' TextStream object
Dim strEnding
' Declare file access constants.
Const ForAppending = 8
Const TristateFalse = 0

' Initialize a string variable that will be written to 
' the end of the file opened next.
strEnding = "This is the end, my only friend, the end..."
' Instantiate the FileSystemObject variable.
Set fsoObject = Server.CreateObject( _
                "Scripting.FileSystemObject")
' Using the GetFile method of fsoObject, initialize the 
' File object.
Set filObject = fsoObject.GetFile("d:\docs\test.txt")

' Use the OpenAsTextStream method to open the file for 
' appending and in Unicode format.
Set tsObject = filObject.OpenAsTextStream(ForAppending, TristateFalse)
' Write a short string plus a newline character to the
' end of the opened file.
tsObject.WriteLine strEnding
<lineannotation>. . . [additional code]</lineannotation>

%&gt;</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>WriteLine \bȟĂяoAt@C|C^́At@Cɒǉꂽs̒ɒuĂ镶|Cg܂B

</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
</body>
</html>
