Defrag log

prøv at angive logfilen med fuld sti til filen

//vbcoder

Er prøvet, virker ikke :-(
Ps. OS = winXP pro (hvis det har nogen betydning)

prøv den her... kan ikke afprøve den har ikke winxp..


Option Explicit

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 Form_Load()
Dim strFile As String
Dim strParameter As String

  strFile = "C:\WINDOWS\system32\defrag.exe"
  strParameter = "C: -f > C:\DefragLogC.txt"
  ShellExecute Me.hwnd, vbNullString, strFile, strParameter, vbNullString, vbNormalFocus
End Sub

Den kan jeg desværre heller ikke få til at virke.
cmd-prompten blinker lige en gang og så sker der ikke mere :-(

Efter jeg fjernede mellemrummene omkring ">"-tegnet kører den defrag, men stadig uden log.

jeg mener at ">" er en commando ting. derfor skal du kalde den gennem cmd.exe

Call Shell("cmd.exe /c C:\WINDOWS\system32\defrag.exe C: -f>DefragLogC.txt", vbNormalFocus)

"/c" betyder at den skal afslutte cms'en efter programmet lukker

>>nanosoft00
Det virker fint.
Tak for hjælpen :-)