InvisibleUriel
Grünschnabel
Hi!
Ich bin noch relativ neu in Sachen vbs.
Ich programmiere auch Java. Nun ist es mir zu umständlich jedesmal die Konsolenbefehle auszuführen.
javac -> zum kompilieren
java -> zum ausführen
Damit das ganze schneller geht habe ich mir nun einen Script geschrieben.
Das kompilieren geht einwandfrei, das Namenändern auch. Die kompilierte Datei liegt nachher bei mir in Eigene Dateien. Aber geht nicht ausführen.
Hier mein Quelltext:
Option Explicit
Dim WshShell, Fso, WshService, jDat, aPfadElemente, aPfadElementEnde
Set WshShell = WScript.CreateObject("WScript.Shell")
Set Fso = WScript.CreateObject ("Scripting.FileSystemObject")
Set WshService = WScript.CreateObject("WSHServiceModul.Allgemein")
'Dateiauswahl wird geöffnet
' Dazu ist eine spiezielle *.ocx Datei notwendig wenn
'benötigt 'versende ich sie per email
WshService.DateiauswahlOeffnen
'Die gewählte Datei wird nun kompiliert
WshShell.Run """C:\j2sdk1.4.0\bin\javac.exe""" & WshService.Dateiname
WScript.Sleep 2000
MsgBox "Projekt wurde kompiliert!", VbInformation, "Kompiliert!"
'Der Dateiname wird von *.java auf *.class geändert
jDat = WshService.Dateiname
aPfadElemente = Split(WshService.Dateiname, ".")
aPfadElementEnde = aPfadElemente(LBound(aPfadElemente))
'----------------------------Ab hier gehts nicht mehr----------------------------------------------------------
'Die *.class Datei wird nun ausgeführt
WshShell.Run """C:\j2sdk1.4.0\bin\java.exe""" & aPfadElementEnde & ".class"
'Ich vermute das die Fehlerausgabe auch nur bedingt am Code liegt ich denke eher an dem Javabefehl java... Wie muss ich das programmieren das ich auch die Java Datei ausführen kann?
Normalerweise tippsel ich doch in der Konsole java und Dateiname ein und dann gehts...
Bitte helft mir ich weiß nicht mehr weiter!
Danke!
Bitte, bitte, bitte helft mir! Ist doch bestimmt jemand der das weiß da!
Danke!
Ich bin noch relativ neu in Sachen vbs.
Ich programmiere auch Java. Nun ist es mir zu umständlich jedesmal die Konsolenbefehle auszuführen.
javac -> zum kompilieren
java -> zum ausführen
Damit das ganze schneller geht habe ich mir nun einen Script geschrieben.
Das kompilieren geht einwandfrei, das Namenändern auch. Die kompilierte Datei liegt nachher bei mir in Eigene Dateien. Aber geht nicht ausführen.
Hier mein Quelltext:
Option Explicit
Dim WshShell, Fso, WshService, jDat, aPfadElemente, aPfadElementEnde
Set WshShell = WScript.CreateObject("WScript.Shell")
Set Fso = WScript.CreateObject ("Scripting.FileSystemObject")
Set WshService = WScript.CreateObject("WSHServiceModul.Allgemein")
'Dateiauswahl wird geöffnet
' Dazu ist eine spiezielle *.ocx Datei notwendig wenn
'benötigt 'versende ich sie per email
WshService.DateiauswahlOeffnen
'Die gewählte Datei wird nun kompiliert
WshShell.Run """C:\j2sdk1.4.0\bin\javac.exe""" & WshService.Dateiname
WScript.Sleep 2000
MsgBox "Projekt wurde kompiliert!", VbInformation, "Kompiliert!"
'Der Dateiname wird von *.java auf *.class geändert
jDat = WshService.Dateiname
aPfadElemente = Split(WshService.Dateiname, ".")
aPfadElementEnde = aPfadElemente(LBound(aPfadElemente))
'----------------------------Ab hier gehts nicht mehr----------------------------------------------------------
'Die *.class Datei wird nun ausgeführt
WshShell.Run """C:\j2sdk1.4.0\bin\java.exe""" & aPfadElementEnde & ".class"
'Ich vermute das die Fehlerausgabe auch nur bedingt am Code liegt ich denke eher an dem Javabefehl java... Wie muss ich das programmieren das ich auch die Java Datei ausführen kann?
Normalerweise tippsel ich doch in der Konsole java und Dateiname ein und dann gehts...
Bitte helft mir ich weiß nicht mehr weiter!
Danke!
Bitte, bitte, bitte helft mir! Ist doch bestimmt jemand der das weiß da!
Danke!
Zuletzt bearbeitet:
