FileSystemObject(FSO) 개체 모델을 사용하면 Windows 탐색기에서 대화형으로 할 수 있는 작업처럼 프로그램에서 드라이브에 접속할 수 있다.

Drive 개체를 사용하면 실제로 또는 네트워크를 통해 시스템에 연결되어 있는 다양한 드라이브에 관한 정보를 볼 수 있다. 이 개체의 속성을 사용하면 아래와 같은 정보를 볼 수 있다.

• 바이트 단위로 나타낸 드라이브 전체 크기(TotalSize 속성)
• 바이트 단위로 나타낸 사용 가능한 드라이브 공간 크기(AvailableSpace 또는 FreeSpace 속성)
• 드라이브에 지정한 문자(DriveLetter 속성)
• 이동식, 고정식, 네트워크, CD-ROM, RAM 디스크 등의 드라이브 형식(DriveType 속성)
• 드라이브 일련 번호(SerialNumber 속성)
• FAT, FAT32, NTFS 등 드라이브에서 사용하는 파일 시스템 형식(FileSystem 속성)
• 드라이브 사용 가능 여부(IsReady 속성)
• 공유 이름 또는 볼륨 이름(ShareName과 VolumeName 속성)
• 드라이브의 경로 또는 루트 폴더(Path와 RootFolder 속성)

예제 코드를 보면 FileSystemObject에서 이런 속성을 사용하는 방법을 알 수 있다.

Drive 개체는 드라이브에 관한 정보를 모으는 데 사용한다.예제에서는 실제 Drive 개체에 대한 참조가 없는 대신 GetDrive 메서드를 사용하여 기존 Drive 개체에 대한 참조를 가져온다.

<SCRIPT language=JScript>
function ShowDriveInfo1(drivePath){
  var fso,driveObj,str='';
  fso=new ActiveXObject('Scripting.FileSystemObject');
  driveObj=fso.GetDrive(fso.GetDriveName(drivePath)); // 쿼리에 사용할 File 개체를 가져온다.

  str+='드라이브 '+drivePath.toUpperCase()+' - ';
  str+=drivePath.VolumeName+'<BR>';
  return str;
}
</SCRIPT>

<SCRIPT language=VBScript>
Function DrivesTestvb(drivePath)
  Dim fso,driveObj,str
  Set fso=CreateObject("Scripting.FileSystemObject")
  Set driveObj=fso.GetDrive(fso.GetDriveName(drivePath)); // 쿼리에 사용할 File 개체를 가져온다. 
  str="드라이브 "&;UCase(drivePath)&" - "  str=str&driveObj.VolumeName&"<BR>"
  DrivesTestvb=str
End Function
</SCRIPT>

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

아래 표에는 일반적인 폴더 작업과 이런 작업에 사용되는 메서드가 설명되어 있다.

작업	메서드
폴더를 만든다.	FileSystemObject.CreateFolder
폴더를 삭제한다.	Folder.Delete 또는 FileSystemObject.DeleteFolder
폴더를 이동한다.	Folder.Move 또는 FileSystemObject.MoveFolder
폴더를 복사한다.	Folder.Copy 또는 FileSystemObject.CopyFolder
폴더 이름을 검색한다.	Folder.Name
드라이브에서 폴더의 존재를 찾는다.	FileSystemObject.FolderExists
기존 Folder 개체의 인스턴스를 가져온다.	FileSystemObject.GetFolder
폴더의 상위 폴더 이름을 찾는다.	FileSystemObject.GetParentFolderName
시스템 폴더의 경로를 찾는다.	FileSystemObject.GetSpecialFolder

예제 코드를 보면 FileSystemObject에서 사용되는 메서드 수와 속성 수를 알 수 있다.

JScript

아래 예제는 폴더를 조작하고 정보를 보는 방법을 보여준다.

클릭(JScript)

<SCRIPT language=JScript>
function ShowFolderInfo(folderPath){
  var fso, folderObj;
  str='';
  fso=new ActiveXObject('Scripting.FileSystemObject'); // FileSystemObject의 인스턴스를 가져온다.
  folderObj=fso.GetFolder('c:\\'); // 상위 폴더 이름을 출력한다.
  str+='상위 폴더 이름 : '+folderObj+'<BR>'; // 드라이브 이름을 출력한다.
  str+='드라이브 이름  : '+folderObj.Drive+'<BR>'; // 루트 파일 이름을 출력한다.
  if (folderObj.IsRootFolder) str+=folderObj+'는 루트 폴더이다.';
  else str+=folderObj+'는 루트 폴더가 아니다';
  str+='<BR><BR>';

  if (fso.FolderExists(folderPath)){
    newObj=fso.GetFolder(folderPath)
    str+=folderPath+"가 존재한다.<BR>"
    fso.DeleteFolder(folderPath)
    str+=folderPath+"를 삭제했다.<BR>"
  }

  newObj=fso.CreateFolder(folderPath); // FileSystemObject 개체에 새 폴더를 만든다.
  folderObj=fso.GetFolder(fso.GetDriveName(newObj)); // Drive 개체를 가져온다.
  str+='만든 폴더 = '+newObj+'<BR>'; // 폴더의 기본 이름을 출력한다.
  str+='기본 이름 = '+fso.GetBaseName(newObj)+'<BR>';
  str+='상위 폴더 이름 : 'newObj.ParentFolder+'
';
  str+='드라이브 이름 : '+fso.getFolder(newObj).Drive+'<BR>'; // 루트 파일 이름을 출력한다.
  if (newObj.IsRootFolder) str+=newObj+'는 루트 폴더이다.';
  else str+=newObj+'는 루트 폴더가 아니다.';
  str+='<BR><BR>';

  str+='삭제한 폴더 = '+newObj+'<BR>';
  return str;
  fso.DeleteFolder(newObj); // 새로 만든 폴더를 삭제한다.
}
</SCRIPT>

<DIV class=show onClick="this.innerHTML=ShowFolderInfo('c:\\JsTest\\TestFolder')">클릭(JScript)</DIV>

VBScript 예제

클릭(VBScript)

<SCRIPT language=VBScript>
Function ShowFolderVB(folderPath)
  Dim fso, folderObj
  str=""
  Set fso=CreateObject("Scripting.FileSystemObject") ' FileSystemObject의 인스턴스를 가져온다.
  Set folderObj=fso.GetFolder("c:\") ' Drive 개체를 가져온다.
  str=str&"상위 폴더 이름 : " & folderObj & "<BR>" ' 상위 폴더 이름을 출력한다.
  str=str&"드라이브 이름 : " & folderObj.Drive & "<BR>" ' 드라이브 이름을 출력한다.
  If folderObj.IsRootFolder=True Then ' 루트 파일 이름을 출력한다.
    str=str&folderObj&"는 루트 폴더이다."
  Else
    str=str&folderObj&"는 루트 폴더가 아니다."
  End If
  str=str& "<BR><BR>"

  If fso.FolderExists(folderPath) Then
    newObj=fso.GetFolder(folderPath)
    str=str&folderPath&"가 존재한다.<BR>"
    fso.DeleteFolder(folderPath)
    str=str&folderPath&"를 삭제했다.<BR>"
  End If

  newObj=fso.CreateFolder(folderPath) ' FileSystemObject 개체로 새 폴더를 만든다.
  Set folderObj=fso.GetFolder(newObj) ' Drive 개체를 가져온다.
  str=str&"만든 폴더 : "&newObj& "<BR>"
  str=str&"기본 이름 : " &fso.GetBaseName(newObj) & "<BR>" ' 폴더의 기본 이름을 출력한다.
  str=str&"상위 폴더 이름 : " & folderObj & "<BR>" ' 상위 폴더 이름을 출력한다.
  str=str&"드라이브 이름 : " & folderObj.Drive & "<BR>" ' 드라이브 이름을 출력한다.
  If folderObj.IsRootFolder=True Then ' 루트 파일 이름을 출력한다.
    str=str&folderObj&"는 루트 폴더이다."
  Else
    str=str&folderObj&"는 루트 폴더가 아니다."
  End If
  str=str& "<BR><BR>"

  fso.DeleteFolder (newObj) ' 새로 만든 폴더를 삭제한다.
  str=str&"삭제한 폴더 : "&newObj&"<BR>"

  DrivesTestvb=str
End Function
</SCRIPT>

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

<DIV id=show1 class=show onClick="this.innerHTML=ShowFolderVB('c:\\JsTest\\TestFolder')">클릭(VBScript)</DIV>