Netz-Treff

Nachricht aus dem Archiv

effeff schrieb am 26.June.2009, 14:51:25 in der Kategorie pc.coding

Ohoh, du hast ja VBA und nicht VB6...

> Meine Pfadangaben haben Leerzeichen, sind die erlaubt?

Nein. Leerzeichen solltest du sowieso grundsätzlich vermeiden. Du kannst sie im Code mittels Anführungszeichen verwenden, welche durch \"chr(34)\" eingefügt werden.

Das \"c:\\\" ist in diesem Fall relativ uninteressant. Dorthin wird nix geschrieben.

Heißt für dich:

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
Const SW_SHOWNORMAL = 1

Private Sub RipeIt()

Dim Inhalt As String
Dim DeineDomain As String
Dim Ausgabedatei As String
Dim ff As Integer
Dim Programm As String
Dim Batch As String

Programm = \"d:\\whois\\whois.exe\"
Batch = \"d:\\whois\\suchen.bat\"
DeineDomain = \"66.193.254.46\"
Ausgabedatei = \"d:\\whois\\ergebnis.txt\"

Inhalt = Chr(34) & Programm & Chr(34) & \" \" & DeineDomain & \" > \" & Chr(34) & Ausgabedatei & Chr(34)

ff = FreeFile

Open Batch For Output As ff
Print #ff, Inhalt
Close ff

ShellExecute 0, vbNullString, Chr(34) & Batch & Chr(34), vbNullString, \"C:\\\", SW_SHOWNORMAL

End Sub

automatisierte whois-Abfragen VBA Alfons - 25.June.2009, 12:25:43 - (pc.coding)
- automatisierte whois-Abfragen VBA glitzi - 25.June.2009, 18:45:53
  - automatisierte whois-Abfragen VBA Alfons - 26.June.2009, 08:30:10
    - automatisierte whois-Abfragen VBA effeff - 26.June.2009, 09:27:01
      - automatisierte whois-Abfragen VBA Alfons - 26.June.2009, 09:53:45
        automatisierte whois-Abfragen VBA glitzi - 26.June.2009, 10:35:45
        automatisierte whois-Abfragen VBA Alfons - 26.June.2009, 10:46:15
        automatisierte whois-Abfragen VBA effeff - 26.June.2009, 10:53:33
        automatisierte whois-Abfragen VBA Alfons - 26.June.2009, 11:16:59
        Ohoh, du hast ja VBA und nicht VB6... effeff - 26.June.2009, 12:31:13
        Ohoh, du hast ja VBA und nicht VB6... Alfons - 26.June.2009, 13:19:54
        Ohoh, du hast ja VBA und nicht VB6... effeff - 26.June.2009, 14:51:25
        Ohoh, es FUNKTIONIERT!!! Alfons - 26.June.2009, 15:50:47
        automatisierte whois-Abfragen VBA Jörg Lorenz - 26.June.2009, 11:40:29
        automatisierte whois-Abfragen VBA effeff - 26.June.2009, 12:33:34
        automatisierte whois-Abfragen VBA Jörg Lorenz - 26.June.2009, 12:41:52
        automatisierte whois-Abfragen VBA Alfons - 26.June.2009, 11:44:30
        automatisierte whois-Abfragen VBA Jörg Lorenz - 26.June.2009, 12:24:11
        automatisierte whois-Abfragen VBA Alfons - 26.June.2009, 13:22:01
        automatisierte whois-Abfragen VBA Jörg Lorenz - 26.June.2009, 13:35:35
        automatisierte whois-Abfragen VBA Alfons - 26.June.2009, 14:05:56
        automatisierte whois-Abfragen VBA Jörg Lorenz - 26.June.2009, 14:48:34
        automatisierte whois-Abfragen VBA Alfons - 26.June.2009, 15:10:35
        automatisierte whois-Abfragen VBA Jörg Lorenz - 26.June.2009, 15:32:38
        automatisierte whois-Abfragen VBA effeff - 26.June.2009, 16:00:13