/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Formatering af diskette fra VB6
Fra : Ove Hansen


Dato : 11-03-02 08:06

I VB6 anvender jeg en rutine, som formaterer en
diskette. Det foregår ved hjælp af Shell. Det
kører fint under Win95 og Win98, men ikke i NT og
XP. Hvordan formaterer man en diskette i drev A i
VB6, så rutinen kan anvendes i alle Windows
versioner?

--
Ove Steen Hansen
URL: http://www.prominentdata.dk
== Et godt eksempel er bedre end tusind argumenter
==



 
 
Ove Hansen (11-03-2002)
Kommentar
Fra : Ove Hansen


Dato : 11-03-02 10:19

Jeg har fundet løsningen.
/Ove

"Ove Hansen" <ovh@kmd.dk> wrote in message
news:3c8c573d$0$276$edfadb0f@dspool01.news.tele.dk
....
> I VB6 anvender jeg en rutine, som formaterer en
> diskette. Det foregår ved hjælp af Shell. Det
> kører fint under Win95 og Win98, men ikke i NT
og
> XP. Hvordan formaterer man en diskette i drev A
i
> VB6, så rutinen kan anvendes i alle Windows
> versioner?
>
> --
> Ove Steen Hansen
> URL: http://www.prominentdata.dk
> == Et godt eksempel er bedre end tusind
argumenter
> ==
>
>



Tomas Christiansen (11-03-2002)
Kommentar
Fra : Tomas Christiansen


Dato : 11-03-02 22:39

Ove Hansen skrev:
> Jeg har fundet løsningen.

Som du naturligvis delagtiggør resten af gruppen i... ?

-------
Tomas


Ove Hansen (13-03-2002)
Kommentar
Fra : Ove Hansen


Dato : 13-03-02 08:06

"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




Tomas Christiansen (13-03-2002)
Kommentar
Fra : Tomas Christiansen


Dato : 13-03-02 22:47

Ove Hansen skrev:
> Naturligvis.
....
> Håber du kan bruge det.

Tak. Formentlig ikke, men andre kan måske.

Min tanke er:
Hvis én spørger om noget er der en stor sandsynlighed for at andre
sidder med, eller kommer til at sidde med, samme spørgsmål.
Derfor bør man, hvis man selv finder svaret på sit spørgsmål,
publicere det - uanset hvor indlysende svaret det end måtte virke.

-------
Tomas


Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste