ab.com コミュニティ

コード: 全て選択

Dim dr As DWord , i As DWord
> Dim Drive[10] As Byte , SetDrv[255] As Byte
> 
> 	'ドライブ一覧を取得
> 	dr=GetLogicalDrives()
> 
> 	For i = 0 To 25
> 		If ((1<<i) And dr) Then
> 			wsprintf(Drive,"%c:\",65+i)
> 			If GetDriveType(Drive)=DRIVE_FIXED Then
>                 wsprintf(SetDrv,"Drive %c",Drive[0])
> 			End If
> 		End If
> 	Next

コード: 全て選択

Dim dr As DWord , i As DWord
Dim Drive[10] As Byte , SetDrv[255] As Byte

	'ドライブ一覧を取得
	dr=GetLogicalDrives()

	For i = 0 To 25
		If ((1<<i) And dr) Then
			wsprintf(Drive,"%c:\",65+i)
			If GetDriveType(Drive)=DRIVE_FIXED Then
                wsprintf(SetDrv,"Drive %c",Drive[0])
			End If
		End If
	Next

コード: 全て選択

' グローバル領域
Dim hEdit As HWND

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
	hEdit[0]=GetDlgItem(hMainWnd,EditBox1)
	hEdit[1]=GetDlgItem(hMainWnd,EditBox2)
	hEdit[2]=GetDlgItem(hMainWnd,EditBox3)
	hEdit[3]=GetDlgItem(hMainWnd,EditBox4)
	hEdit[4]=GetDlgItem(hMainWnd,EditBox5)
	hEdit[5]=GetDlgItem(hMainWnd,EditBox6)

	Dim Size As DWord, n As Long
	Dim buffer As BytePtr, hIcon As DWord
	Dim Drive[10] As Byte, temp As DWord
	Dim SetDrv[255] As Byte

	'ドライブ一覧を取得
	Size=GetLogicalDriveStrings(0,NULL)
	buffer=malloc(Size+1)
	GetLogicalDriveStrings(Size,buffer)

	Size=0
	Do
		If buffer[Size]=NULL Then
			If buffer[Size+1]=NULL Then Exit Do
			lstrcpy(Drive,buffer+Size-3)
			temp=GetDriveType(Drive)
			If temp=DRIVE_FIXED Then
				wsprintf(SetDrv,"Drive %s",Left$(Drive,1))
				SetWindowText(hEdit[n],SetDrv)

				n++
			End If
		End If

		Size++
	Loop
	free(buffer)
End Sub