Supportnet / Forum / Skripte(PHP,ASP,Perl...)
VBA in VBS umwandeln
Frage
Hallo,
ich möchte folgenden Code in VBS umwandeln, kann mir jemand dabei behilflich sein.
Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As _
Long, ByVal hwndCallback As Long) As Long
Function FuncTest()
Dim fs, gd, EnvUser, Shell
Dim Buffer As String * 255
Set Shell = CreateObject("Wscript.Shell")
Set fs = CreateObject("Scripting.FileSystemObject")
Set gd = fs.getDrive("D")
EnvUser = Shell.ExpandEnvironmentStrings("%USERNAME%")
Do ´// Endlos-Schleife
Select Case EnvUser
Case "Administrator"
Case Else
If gd.isready = True Then
mciSendString "Open " & gd & " Type cdaudio Alias cd", Buffer, 255, 0
mciSendString "set cd door open", 0&, 0, 0
Else
End If
End Select
Loop
End Function
Vielen Dank,
Martin9
Antwort 1 von Eugun
In VBS gibt es nur den Variablentyp "Variant". Außerdem kennt die DIM-Anweisung in VBS "AS" nicht.