파일 작업은 크게 두 범주로 구분된다.

• 파일 만들기, 데이터 추가와 삭제, 파일 읽기
• 파일 이동, 복사, 삭제

빈 텍스트 파일("텍스트 스트림"이라고도 함)을 만드는 방법에는 세 가지가 있다.

CreateTextFile 메서드

하나는 CreateTextFile 메서드를 사용하는 것이다. 아래 예제는 CreateTextFileMethod 메서드를 사용하여 텍스트 파일을 작성하는 방법을 보여준다.

결과 표시창

클릭하여 결과를 보라

<SCRIPT language=JScript>
function CreateFileTest(filePath){
  var fso,file1;
  fso=new ActiveXObject('Scripting.FileSystemObject');
  file1=fso.CreateTextFile(filePath,true);
  return '"'+filePath+'" File이 생성되었다.';
}
</SCRIPT>

<DIV class=show id=showCreateFile>결과 표시창</DIV>
<DIV class=show
  onClick="showCreateFile.innerHTML=CreateFileTest('c:\\JsTest\\subFolder1\\textFile.txt')">
    클릭하여 결과를 보라.</DIV>

<SCRIPT language=VBScript>
Function FilesTestvb(filePath)
  Dim fso,file1
  Set fso=CreateObject("Scripting.FileSystemObject")
  Set file1=fso.CreateTextFile(filePath,true)
  FilesTestvb "'"+filePath+"' File이 생성되었다."
End Function
</SCRIPT>

<DIV id=showvb class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="showvb.innerHTML=FilesTestvb('b')">VBScript <SPAN class=method>Files</SPAN> 

OpenTextFile 메서드

텍스트 파일을 만드는 둘째 방법은 ForWriting 플래그를 설정하고 FileSystemObject 개체의 OpenTextFile 메서드를 사용하는 것이다.

결과 표시창

클릭하여 결과를 보라

<SCRIPT language=JScript>
function OpenTextTest(filePath){
  var fso,textFileObj;
  var ForWriting=2;
  fso=new ActiveXObject('Scripting.FileSystemObject');
  textFileObj=fso.OpenTextFile(filePath,ForWriting,true);
  return '"'+filePath+'" File이 생성되었다.';
}
</SCRIPT>

<DIV class=show id=showOpenText>결과 표시창</DIV>
<DIV class=show
  onClick="showOpenText.innerHTML=OpenTextTest('c:\\JsTest\\subFolder1\\textFile1.txt')">
    클릭하여 결과를 보라.</DIV>

<SCRIPT language=VBScript>
Function OpenTextTest(filePath)
  Dim fso,textFileObj
  Const ForWriting=2
  Set fso=CreateObject("Scripting. FileSystemObject")
  Set textFileObj=fso.OpenTextFile(filePath,ForWriting,true)
  OpenTextTest "'"+filePath+"' File이 생성되었다."
End Function
</SCRIPT>

<DIV id=showvb class=show alt="결과">결과 표시창</DIV>
<DIV class=show
  onClick="showvb.innerHTML=ShowFileAccessInfovb('b')">
  VBScript <SPAN class=method>GetFile</SPAN> 

OpenAsTextStream 메서드

텍스트 파일을 만드는 세째 방법은 ForWriting 플래그를 설정하고 OpenAsTextStream 메서드를 사용하는 것이다.

결과 표시창

클릭하여 결과를 보라.

<SCRIPT language=JScript>
function OpenAsTest(filePath){
  var fso,file1,textFileObj;
  var ForWriting=2;
  fso=new ActiveXObject('Scripting.FileSystemObject');
  fso.CreateTextFile(filePath);
  file1=fso.GetFile(filePath);
  textFileObj=file1.OpenAsTextStream(ForWriting,true);
  return '"'+filePath+'" File이 생성되었다.';
}
</SCRIPT>

<DIV class=show id=showOpenAs>결과 표시창</DIV>
<DIV class=show
  onClick="showOpenAs.innerHTML=OpenAsTest('c:\\JsTest\\subFolder1\\textFile2.txt')">
    클릭하여 결과를 보라.</DIV>

<SCRIPT language=VBScript>
Function OpenAsTest(filePath)
  Dim fso,file1,textFileObj
  Const ForWriting=2
  Set fso=CreateObject("Scripting.FileSystemObject")
  fso.CreateTextFile(filePah)
  Set file1=fso.GetFile(filePath)
  Set textFileObj=file1.OpenAsTextStream(ForWriting,true)
  OpenAsTest "'"+filePath+"' File이 생성되었다."
End Function
</SCRIPT>

<DIV id=showvb class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="showvb.innerHTML=ShowFileAccessInfovb('b')">
  VBScript <SPAN class=method>GetFile</SPAN> 

텍스트 파일을 만든 후 아래와 같은 세 단계를 따라 데이터를 파일에 추가한다.

텍스트 파일을 연다.

기존 파일을 열려면 FileSystemObject 개체의 OpenTextFile 메서드나 File 개체의 OpenAsTextStream 메서드를 사용하라.

데이터를 쓴다.

열린 텍스트 파일에 데이터를 쓰려면 아래 표에 설명되어 있는 작업에 따라 TextStream 개체의 Write, WriteLine 또는 WriteBlankLines 메서드를 사용하라.

작업	메서드	예제
열린 텍스트 파일에 뒤에 오는 줄 바꿈 문자 없이 데이터를 쓴다	Write
열린 텍스트 파일에 데이터와 뒤에 오는 줄 바꿈 문자를 쓴다	WriteLine
열린 텍스트 파일에 빈 줄을 하나 이상 쓴다	WriteBlankLines

참고: 줄 바꿈 문자에는 커서를 다음 줄의 시작 부분으로 넘기는 문자(운영 체제에 따라 다름)가 있다(캐리지 리턴/줄 바꿈). 일부 문자열의 끝에는 이미 그런 인쇄되지 않는 문자가 있는 것도 있다.

파일을 닫는다.

열린 파일을 닫으려면 TextStream 개체의 Close 메서드를 사용하라.

예제

예제는 파일을 열고, 세 가지 쓰기 방법을 모두 사용하여 파일에 데이터를 추가하고, 파일을 닫는 방법을 보여준다.

<SCRIPT language=JScript>
function CreateFile(){
  var fso,txtfile;
  fso=new ActiveXObject('Scripting.FileSystemObject');
  txtfile=fso.CreateTextFile('c:\\JsTest\\subFolder1\\textFile.txt',true);

  txtfile.WriteLine("테스트 중\\n 1,2,3.") ; // 줄 바꿈 문자가 있는 줄을 쓴다.
  txtfile.WriteBlankLines(3) ; // 파일에 줄 바꿈 문자를 세 개 쓴다.
  txtfile.Write("테스트이다."); // 줄을 쓴다.
  txtfile.Close();
  return str
}
</SCRIPT>

<SCRIPT language=VBScript>
Function CreateFile
  Dim fso,txtfile
  Set fso=CreateObject('Scripting.FileSystemObject')
  Set txtfile=fso.CreateTextFile('c:\JsTest\subFolder1\textFile.txt',True)

  txtfile.WriteLine("테스트 중\n 1,2,3.") ' 줄 바꿈 문자가 있는 줄을 쓴다
  txtfile.WriteBlankLines(3) ' 파일에 줄 바꿈 문자를 세 개 쓴다
  txtfile.Write("테스트이다.") ' 줄을 쓴다
  txtfile.Close
  CreateFile=str
End Function
</SCRIPT>

<DIV id=showvb class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="showvb.innerHTML=ShowFileAccessInfovb('b')">
  VBScript <SPAN class=method>GetFile</SPAN> 

읽기

텍스트 파일에서 데이터를 읽으려면 TextStream 개체의 Read, ReadLine, 또는 ReadAll 메서드를 사용하라.

작업	메서드	예제
파일에서 지정한 수의 문자를 읽는다.	Read
한 줄 전체를 읽는다(줄 바꿈 문자는 제외하고 줄 바꿈 문자까지).	ReadLine
텍스트 파일의 전체 내용을 읽는다.	ReadAll

읽기 메서드의 결과로 나오는 텍스트는 문자열로 저장되며 컨트롤에 표시하거나, 문자열 함수(Left, Right, Mid)로 구문을 분석하거나, 연결하는 등의 조작을 할 수 있다.

건너 뛰기

Read 메서드나 ReadLine 메서드를 사용하면서 데이터의 특정 부분을 건너뛰려면 Skip 메서드 또는 SkipLine 메서드를 사용하라.

작업	메서드	예제
파일에서 지정한 수의 문자를 건너뛴다.	Skip
한 줄 전체를 건너뛴다(줄 바꿈 문자는 제외하고 줄 바꿈 문자까지).	SkipLine

예제

아래 예제는 파일을 열고, 내용을 쓰고, 다시 읽는 방법을 보여준다.

<SCRIPT language=JScript>
function ReadFiles(){
  var fso,file1,textFileObj,txtstr;
  str='';
  var ForReading=1;
  fso=new ActiveXObject('Scripting.FileSystemObject');
  file1=fso.CreateTextFile('c:\\JsTest\\subFolder1\\textFile.txt',true);
  str+='Writing file <BR>'; // 줄을 출력한다.
  file1.WriteLine('Hello World');
  file1.WriteBlankLines(1);
  file1.Close();
  str+='파일 읽는다.<BR>'; // 파일 내용을 읽는다.
  textFileObj=fso.OpenTextFile('c:\\JsTest\\subFolder1\\textFile.txt',ForReading);
  txtstr=textFileObj.ReadLine();
  str+='파일 내용="'+txtstr+ '"';
  textFileObj.Close();
  return str
}
</SCRIPT>

<SCRIPT language=VBScript>
Function ReadFiles
  Dim fso,file1,textFileObj,txtstr
  Const ForReading=1
  Set fso=CreateObject("Scripting.FileSystemObject")
  Set file1=fso.CreateTextFile("c:\JsTest\subFolder1\textFile.txt",True)
  str=str&"파일 쓰는 중 <BR>" ' 줄을 쓴다
  file1.WriteLine "안녕하십니까?"
  file1.WriteBlankLines(1)
  file1.Close
  str=str&"파일 읽는다.<BR>"  ' 파일 내용을 읽는다.
  Set textFileObj=fso.OpenTextFile("c:\JsTest\subFolder1\textFile.txt",ForReading)
  txtstr=textFileObj.ReadLine
  str=str&"파일 내용='" &txtstr& "'"
  textFileObj.Close
  ReadFiles=str
End Function
</SCRIPT>

<DIV id=showvb class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="showvb.innerHTML=ShowFileAccessInfovb('b')">
  VBScript <SPAN class=method>GetFile</SPAN> 

FSO 개체 모델에는 아래 표에 설명되어 있는 것처럼 파일 이동, 복사, 삭제에 대해 각각 두 가지 메서드가 있다.

작업	메서드	또는	메서드	예제
파일을 이동한다.	File.Move	또는	FileSystemObject.MoveFile
파일을 복사한다.	File.Copy	또는	FileSystemObject.CopyFile
파일을 삭제한다.	File.Delete	또는	FileSystemObject.DeleteFile

예제

아래 예제에서는 C 드라이브의 루트 디렉터리에 텍스트 파일을 만들고, 파일에 정보를 쓰고, 파일을 \JsTest\subFolder1이라는 디렉터리로 이동하고, \JsTest라는 디렉터리에 복사본을 만든 후에 두 디렉터리 모두에서 복사본을 삭제한다.

아래 예제를 실행하려면 먼저 C 드라이브의 루트 디렉터리에 \JsTest\subFolder1과 \JsTest 디렉터리를 만든다.

JScript 예제

결과 표시창

클릭하여 결과를 보라.

<SCRIPT language=JScript>
function handleFiles(){
  var fso,file1,file2,file3;
  str='';
  folderPathO='c:\\JsTest\\subFolder1'; // 작성할 폴더 경로를 지정한다.
  filePathO=folderPathO+'\\textFileO.txt'; // 작성할 파일을지정한다.
  folderPathM='c:\\JsTest\\subFolder2'; // 이동할 폴더 경로를 지정한다.
  filePathM=folderPathM+'\\textFileM.txt'; // 이동할 파일을지정한다.
  folderPathC='c:\\JsTest\\subFolder2'; // 복사할 폴더 경로를 지정한다.
  filePathC=folderPathC+'\\textFileC.txt'; // 복사할 파일을지정한다.

  fso=new ActiveXObject('Scripting.FileSystemObject');
  str+=filePathO+' 화일을 생성한다.<BR>';
  file1=fso.CreateTextFile(filePathO,true);
  str+=filePathO+' 화일에 쓰기한다.<BR>';
  file1.Write('예제 파일 '+file1+' 기록 내용이다.'); // 줄을 쓴다.
  str+=filePathO+' 화일을 닫는다.<BR>';
  file1.Close(); // 파일을 닫는다.

  file2=fso.GetFile(filePathO); // 파일에 대한 핸들을 가져온다.
  folder2=fso.GetFolder(folderPathM); // 목표 폴더에 대한 핸들을 가져온다.
  str+=file2+'파일을 '+filePathM+'로 이동한다. <BR>';
  file2.Move(filePathM); // 파일을 \JsTest\subFolder1 디렉터리로 옮긴다.

  str+=file2+'파일을 '+filePathC+'로 복사한다. <BR>';
  file3=file2.Copy(filePathC); // 파일을 \JsTest로 복사한다.

  file2=fso.GetFile(filePathM); // 파일의 현재 위치에 대한 핸들을 가져온다.
  str+=filePathM+'파일을 삭제한다. <BR>';
  file2.Delete(); // 파일을 삭제한다.
  file3=fso.GetFile(filePathC);
  str+=filePathC+'파일을 삭제한다. <BR>';
  file3.Delete();
  return str
}
</SCRIPT>

<DIV id=showJs class=show style=margin-left:50>결과 표시창</DIV>
<DIV class=show onClick="showJs.innerHTML=handleFiles()>클릭하여 결과를 보라.</DIV>

VBScript 예제

결과 표시창

클릭하여 결과를 보라.

<SCRIPT language=VBScript>
Function handleFilesVB
  Dim fso,file1,file2,file3
  str=""
  folderPathO="c:\\JsTest\\subFolder1" ' 작성할 폴더 경로를 지정한다.
  filePathO=folderPathO&"\\textFileO.txt" ' 작성할 파일을지정한다.
  folderPathM="c:\\JsTest\\subFolder2" ' 이동할 폴더 경로를 지정한다.
  filePathM=folderPathM&"\\textFileM.txt" ' 이동할 파일을지정한다.
  folderPathC="c:\\JsTest\\subFolder2" ' 복사할 폴더 경로를 지정한다.
  filePathC=folderPathC&"\\textFileC.txt" ' 복사할 파일을지정한다.

  Set fso=CreateObject("Scripting.FileSystemObject")
  str=str&filePathO&" 화일을 생성한다.<BR>"
  Set file1=fso.CreateTextFile(filePathO,True)

  str=str&filePathO&" 화일에 쓰기한다.<BR>"
  file1.Write("예제 파일 기록 내용이다.") ' 줄을 쓴다.
  str=str&filePathO&" 화일을 닫는다.<BR>"
  file1.Close ' 파일을 닫는다.

  Set file2=fso.GetFile(filePathO) ' 파일에 대한 핸들을 가져온다.
  folder2=fso.GetFolder(folderPathM) ' 목표 폴더에 대한 핸들을 가져온다.
  str=str&file2&"파일을 "&filePathM&"로 이동한다. <BR>"
  file2.Move(filePathM) ' 파일을 옮긴다.

  str=str&file2&"파일을 "&filePathC&"로 복사한다. <BR>"
  file3=file2.Copy(filePathC) ' 파일을 \JsTest로 복사한다.

  Set file2=fso.GetFile(filePathM) ' 파일의 현재 위치에 대한 핸들을 가져온다.
  str=str&filePathM&"파일을 삭제한다. <BR>"
  file2.Delete ' 파일을 삭제한다.
  Set file3=fso.GetFile(filePathC)
  str=str&filePathC&"파일을 삭제한다. <BR>"
  file3.Delete
  handleFilesVB=str
End Function
</SCRIPT>

<DIV id=showvb class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="showvb.innerHTML=ShowFileAccessInfovb('b')">
  VBScript <SPAN class=method>GetFile</SPAN>