Avatar billede omen Nybegynder
09. juli 2003 - 11:16 Der er 27 kommentarer og
1 løsning

Kør Disk Defragmenter

Når jeg skal køre Disk Cleanup fra en commando i VB6 bruger jeg følgende kode:

Private Sub mnuDiskCleaner_Click()
On Error Resume Next
Shell "cleanmgr.exe", vbNormalFocus
End Sub

Men hvis jeg skal køre Disk Defragmenter, som i fil hedder: dfrg.msc , så hvis jeg erstatter "cleanmgr.exe" med "dfrg.msc" så sker der intet når jeg trykker på den. Hvordan kører jeg den fil? Den åbner hvis man skriver "dfrag.msc" i Kør!

På forhånd tak!
Avatar billede johnkorn Nybegynder
09. juli 2003 - 11:21 #1
Hvad med at hente norton utilities.. Der virker nemt og det VIRKER !

http://www.pugh.co.uk/Products/symantec/Utilities2002.htm

Den kan det hele og den får din hd til at køre helt optimalt.
Avatar billede omen Nybegynder
09. juli 2003 - 11:31 #2
Det har jeg allerde, og det er ikke det spørgsmålet drejer sig om :)
Avatar billede johnkorn Nybegynder
09. juli 2003 - 11:39 #3
Nå nå men så snup den besværlige vej !!
Avatar billede stefan_jensen Nybegynder
09. juli 2003 - 11:41 #4
Tror nok det er fordi han selv vil prøve at programmere noget i forbindelse med det?
Avatar billede omen Nybegynder
09. juli 2003 - 11:46 #5
johnkorn: Emnet her i Visual Basic som er et programmeringssporg, og det aner du ikke en dyt. Med al respekt, så lad vær med at svar på spørgsmål du ikke ved noget om. Og derudover la' vær med at være flabet. Ik til at holde ud og se på!
Avatar billede johnkorn Nybegynder
09. juli 2003 - 11:46 #6
Luk din mund
Avatar billede stefan_jensen Nybegynder
09. juli 2003 - 11:49 #7
Omen - Tror nok ikke det var for at virke somom han vidste noget om det, blot hjælpe dig til hvordan du fik ryddet op på din harddisk bedre.. Helt ærligt, jeg ville sikkert have svaret omtrendt det samme :)
Avatar billede johnkorn Nybegynder
09. juli 2003 - 11:49 #8
Ok jeg ved ikke så meget om Visual Basic, men kunne jo være jeg kunne hjælpe.
Det var et forsøg, ikk andet. Er ikke flabet !
Avatar billede stefan_jensen Nybegynder
09. juli 2003 - 11:51 #9
Jeg ved ikke noget om det, men skal du ikke kører dfrg.msc igennem en eller anden exe fil i windows? Altså en der gør at dfrg.msc kommer i det der vindue..?
Avatar billede omen Nybegynder
09. juli 2003 - 11:56 #10
johnkorn: Ok, ber om forladelse så

stefan_jensen: Man ser vel hvad emnet er først? Men vi dropper det.
Til din sidste kommentar: Det har jeg også spekuleret over, men hvis man tager et kig på genvejen der ligger i Start-Programmer-Tibehør-Systemværktøjer-Disk Defragmenter, så er stien: %SystemRoot%\System32\dfrg.msc Så der er simpelthen ingen exe tilknyttet!
Avatar billede stefan_jensen Nybegynder
09. juli 2003 - 11:57 #11
Kender ikke VB, men "Starter" du den i "C:\WINDOWS\System32" (ligesom der står i genvejen)?
Avatar billede omen Nybegynder
09. juli 2003 - 12:05 #12
Nej, jeg starter dem som hvis man skrev kommandoerne i kør. F.eks hvis du går  op i Start->Kør og skriver "cleanmgr" eller "dfrg.msc" De fleste windows programmer kan startes derfra, og jeg bruger den altid til at starte hvad som helst!
Avatar billede stefan_jensen Nybegynder
09. juli 2003 - 12:07 #13
Hmm også mig :), men som sagt - jeg ved ikke noget om VB, så jeg må desværre droppe ud af SPM nu :/
Avatar billede stefan_jensen Nybegynder
09. juli 2003 - 12:09 #14
Har du XP eller Win2k?
Avatar billede omen Nybegynder
09. juli 2003 - 12:13 #15
XP. Men genvejen er den samme i begge to!
Avatar billede stefan_jensen Nybegynder
09. juli 2003 - 12:14 #16
Det var ikke det jeg tænkte på... Når du trykker på "den", er du så sikker på at dfrg.msc ikke kører? Prøv at kig i Joblisten, under processer
Avatar billede dk_akj Nybegynder
09. juli 2003 - 12:30 #17
Brug shellexecute

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal _
lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) _
As Long

Private Sub Command1_Click()

On Error Resume Next
lngRet = ShellExecute(Me.hwnd, "Open", "c:\winnt\system32\DFRG.MSC", "", "", 5)
End Sub



//akj
Avatar billede stefan_jensen Nybegynder
09. juli 2003 - 12:35 #18
Ja sådan kan man jo sikkert også gøre det :)
Avatar billede dk_akj Nybegynder
09. juli 2003 - 12:37 #19
Stefan >> Jeg er faktisk holdt op med at bruge shell, tanker ved Statoil istedet :-)

Nej, jeg syntes at det er alt for tit der er bøvl med shell funktionen, derfor bruger jeg altid shellexecute

//akj
Avatar billede omen Nybegynder
09. juli 2003 - 12:38 #20
dk_akj: Kan jeg bruger noget %System.Path% istedet for C:\Winnt ? Hvis vi nu siger det både skal virke i 2000 OG XP?
Avatar billede stefan_jensen Nybegynder
09. juli 2003 - 12:40 #21
Hehe
Avatar billede omen Nybegynder
09. juli 2003 - 12:44 #22
On Error Resume Next
" Dim lngRet As Long " even :-)
lngRet = ShellExecute(Me.hwnd, "Open", "c:\winnt\system32\DFRG.MSC", "", "", 5)
End Sub
Avatar billede dk_akj Nybegynder
09. juli 2003 - 12:53 #23
Du kan bruge dette til at finde dit systemkatalog.
ospath = Environ("SystemRoot")
//akj
Avatar billede omen Nybegynder
09. juli 2003 - 12:58 #24
Ok, så er jeg ikke helt med på hvordan man skal flette de to ting sammen ?
Avatar billede dk_akj Nybegynder
09. juli 2003 - 13:00 #25
lngRet = ShellExecute(Me.hwnd, "Open", Environ("SystemRoot") & "\system32\DFRG.MSC", "", "", 5)

//akj
Avatar billede omen Nybegynder
09. juli 2003 - 13:28 #26
Takker, endnu en gang :)
Avatar billede stefan_jensen Nybegynder
09. juli 2003 - 13:42 #27
Fedt du fik det til at virke :D
Avatar billede omen Nybegynder
09. juli 2003 - 14:33 #28
Ja helt sikkert :)
Dette er tredje gang dk_akj hjælper mig med et problem.
Det ville være rart at have ham på min MSN liste, men så kunne han ikke tjene point jo ;)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Seneste spørgsmål Seneste aktivitet
I går 10:21 Ny printer, men hvilken Af mort1 i Printere
13/0819:41 USB på Linux Af Uvanga i Linux
12/0818:26 Hvilken type mus Af mort1 i PC
11/0813:21 ms Forms Af leahcim i Andet software
10/0821:30 Blokeret på Snapchat? Af LineP i Chat & Messaging