Avatar billede tiger_webdesign Nybegynder
14. september 2003 - 03:15 Der er 9 kommentarer og
1 løsning

DOS-kommandoer

Hvordan kører man dos-kommandoer og får returneret resultatet?

har prøvet med Shell men kan ikke få det til at virke...
Avatar billede thesurfer Nybegynder
14. september 2003 - 03:22 #1
hvad mener du med "får returneret resultat"?
Avatar billede tiger_webdesign Nybegynder
14. september 2003 - 03:26 #2
hvis jeg kalder "dir c:\" får jeg mappe stukturen for c:\... ved godt at det skal forbi en ekstern fil... men hvordan kalder jeg dir fra shell ell?
Avatar billede tubber Juniormester
14. september 2003 - 08:13 #3
Shell ("dir c:\windows"), vbHide

vbHide gør vinduet ikke vises når den dir kører, hvis det skal vises så er det vbNormalFocus

Der er mange andre der også kan bruges
Avatar billede tubber Juniormester
14. september 2003 - 08:14 #4
hvo du får jo ikke din fil med.....
det er:
Shell ("dir c:\windows >c:\dir.txt"), vbHide
Avatar billede tiger_webdesign Nybegynder
14. september 2003 - 10:21 #5
Jeg får en "File Not Found" error...
Nogle forslag?
Avatar billede martin_moth Mester
14. september 2003 - 10:56 #6
filen kan ikke findes - bare et forslag ;-)
Avatar billede tiger_webdesign Nybegynder
14. september 2003 - 10:59 #7
martin_moth -> SPAM = anmeldelse!!!

nogle SERIØSE forslag???
Avatar billede driis Nybegynder
14. september 2003 - 11:12 #8
Brug Windows API funktionen ShellExecute, VB's version af Shell fungerer ikke godt med parametre. Grunden til at du får en fejl, er at der ikke findes en fil, der hedder dir.exe, som Shell kan køre. Dir er en kommando indbygget i kommandofortolkeren cmd.exe eller command.com
Avatar billede driis Nybegynder
14. september 2003 - 11:18 #9
Eksempel:

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()
Dim ans As Long
ans = ShellExecute(Me.hwnd, "open", "cmd", "/c dir >c:\fil.txt", "", 0)
If ans <= 32 Then MsgBox "Error!"
End Sub
Avatar billede martin_moth Mester
14. september 2003 - 19:32 #10
tiger: Mit svar var skam seriøst ment...
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