"Tomas Christiansen" <toc@blikroer.removethis.dk>
wrote in message
news:a6j85r$2e8q$1@news.cybercity.dk...
> Ove Hansen skrev:
> > Jeg har fundet løsningen.
>
> Som du naturligvis delagtiggør resten af gruppen
i... ?
>
> -------
> Tomas
>
Naturligvis.
Declare Function SHFormatDrive Lib "shell32" _
(ByVal hwndOwner As
Long, _
ByVal iDrive As Long,
_
ByVal iCapacity As
Long, _
ByVal iFormatType As
Long) As Long
Const SHFD_CAPACITY_DEFAULT = 0 'default drive
capacity
Const SHFD_CAPACITY_360 = 3 ' 360KB,
applies to 5.25" drives only
Const SHFD_CAPACITY_720 = 5 ' 720KB,
applies to 3.5" drives only
SHFD_FORMAT_FULL = 0 ' full format
SHFD_FORMAT_QUICK = 1 ' quick format
Private Sub Form_Load()
' iDrive = The drive number to format. Drive
A=0, B=1 (if present, otherwise C=1), and so on.
SHFormatDrive Me.hwnd, 0,
SHFD_CAPACITY_DEFAULT, SHFD_FORMAT_QUICK
End Sub
Håber du kan bruge det.
/Ove
http://www.prominentdata.dk