|
안녕하세요? 억세스를 사용하다가 난관에 부딧쳤어요.
회사에서 데이타베이스 구축을 억세스로 하고 델파이로 외형을 꾸며주는 작업중에 있는데요. DB구축을 해서 시디에 넣어 실행시켜 볼수 있게 하려고 하는데
이미지 파일 삽입을 어떻게 해야 할지 몰라서요
이미지 파일이 1600 여개가 되는데
폴더를 만들어 이미지를 넣고 DB는 참조만 하도록 경로만 적어주는게 가능할까요?
가능하다면 어떤 식으로 CDROM에서의 경로를 잡아주어야 할지 가르쳐주세요
혹시 시디제작시 참고할만한 조언도 부탁드립니다.
감사합니다.
==============[박성희님 글에 대한 답변입니다]==============
CDRom드라이브를 알아내어 경로를 설정하시려면
FileSystemObject를 이용하시면 됩니다.
VBA도움말을 참고하십시오.
Sub ShowDriveList()
Dim fs, d, dc, s, n
Set fs = CreateObject("Scripting.FileSystemObject")
Set dc = fs.Drives
For Each d In dc
s = s & d.DriveLetter & " - "
If d.DriveType = 3 Then
n = d.ShareName
Else
n = d.VolumeName
End If
s = s & n & vbCrLf
Next
MsgBox s
End Sub
Sub ShowDriveType(drvPath)
Dim fs, d, s, t
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(drvPath)
Select Case d.DriveType
Case 0: t = "알 수 없음"
Case 1: t = "제거 가능"
Case 2: t = "고정"
Case 3: t = "네트워크"
Case 4: t = "CD-ROM"
Case 5: t = "RAM 디스크"
End Select
s = "드라이브 " & d.DriveLetter & ": - " & t
MsgBox s
End Sub
Sub ShowFreeSpace(drvPath)
Dim fs, d, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(drvPath))
s = "드라이브 " & UCase(drvPath) & " - "
s = s & d.VolumeName & vbCrLf
s = s & "사용할 수 있는 공간: " & FormatNumber(d.FreeSpace / 1024, 0)
s = s & " KB"
MsgBox s
End Sub
|
|