Well, need help again

[Cahlel]

Well, given that:
shell "C:\blahblahblah.blah", vbnormalfocus works, would it work say like this:

drive = inputbox("What drive would you like to format?")
shell "c:\windows\format.exe" & drive &, vbnormalfocus

Now would that format the drive given in the input box? or not....thanks for that reply





-----------------------------------------------------------
Wisdom is supreme, therefore get wisdom,
though it costs all you have, get understanding.
Proverbs 4:7
-----------------------------------------------------------

[HeSaidJoe]

What's the matter..no nerve to try?

Never Work...if you want to format here is the code!

'make a form with 2 command buttons and a drivelistbox
'format a drive on your computer 
'if you blow yourself out of the water it's your problem
'not mine....this is code that works so use it with
'a little knowledge....
'

Private Declare Function SHFormatDrive Lib "shell32" _
    (ByVal hwnd As Long, ByVal Drive As Long, ByVal fmtID As Long, _
    ByVal options As Long) As Long


Private Declare Function GetDriveType Lib "kernel32" Alias _
    "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Sub Command1_Click()
    Dim DriveLetter$, DriveNumber&, DriveType&
    Dim RetVal&, RetFromMsg%
    DriveLetter = UCase(Drive1.Drive)
    DriveNumber = (Asc(DriveLetter) - 65) ' Change letter to Number: A=0
    DriveType = GetDriveType(DriveLetter)


    If DriveType = 2 Then 'Floppies, etc
        RetVal = SHFormatDrive(Me.hwnd, DriveNumber, 0&, 0&)
    Else
        RetFromMsg = MsgBox("This drive is NOT a removeable" & vbCrLf & _
        "drive! Format this drive?", 276, "SHFormatDrive Example")


        Select Case RetFromMsg
            Case 6 'Yes
            ' UnComment to do it...
            'RetVal = SHFormatDrive(Me.hwnd, DriveNumber, 0&, 0&)
            Case 7 'No
            ' Do nothing
        End Select

End If

End Sub



Private Sub Command2_Click()
    ' DiskCopyRunDll takes two parameters- From and To
    Dim DriveLetter$, DriveNumber&, DriveType&
    Dim RetVal&, RetFromMsg&
    DriveLetter = UCase(Drive1.Drive)
    DriveNumber = (Asc(DriveLetter) - 65)
    DriveType = GetDriveType(DriveLetter)


    If DriveType = 2 Then 'Floppies, etc
        RetVal = Shell("rundll32.exe diskcopy.dll,DiskCopyRunDll " _
        & DriveNumber & "," & DriveNumber, 1) 'Notice space after
    Else ' Just in Case 'DiskCopyRunDll
        RetFromMsg = MsgBox("Only floppies can" & vbCrLf & _
        "be diskcopied!", 64, "DiskCopy Example")
    End If

End Sub

'Add 1 ListDrive name Drive1

Private Sub Drive1_Change()

    Dim DriveLetter$, DriveNumber&, DriveType&
    DriveLetter = UCase(Drive1.Drive)
    DriveNumber = (Asc(DriveLetter) - 65)
    DriveType = GetDriveType(DriveLetter)


    If DriveType = 2 Then 'Floppies, etc
        Command2.Enabled = False
    Else
        Command2.Enabled = True
    End If

End Sub

[Sam Finch]

you've got an extra & in there so it probably won't compile, Ive never used the format command from the command line but something like this should work

Do   'Keep looping round until valid letter is given

drive = inputbox("What drive would you like to format?") 


'I suspect you need to run it with a colon after the drive letter
If Not (Right(drive,2) = ":") Then

    drive = drive & ":"

End If


'Now check it's 2 characters long (a letter and a colon)
If Len(drive) = 2 and IsAlphaNumeric(Left(drive,1)) Then

    shell "c:\windows\format.exe " & drive , vbnormalfocus 'NB note the Space after the EXE name
    Exit Do  'Leave the loop

Else 

    Msgbox "Invalid Drive Name

End If

Loop

[HeSaidJoe]

Beg to differ Sam..
there is no such file as Format.exe...format is a function form dos..the shell command above says
your shell statement produces this
C:\Windows\Format.exe" a:
Dos would say this
Format a:

[Sam Finch]

as I say, I've never run it from the command line, and i didn't want to try because I don't want to format any of the disks I have lying around

[HeSaidJoe]

wasn't a dig...just a FYI...

[kedaman]

BTW, It's Format.com