Diskuze: Převod z VBScript do JavaScript
V předchozím kvízu, Online test znalostí JavaScript, jsme si ověřili nabyté zkušenosti z kurzu.
Zobrazeno 3 zpráv z 3.
//= Settings::TRACKING_CODE_B ?> //= Settings::TRACKING_CODE ?>
V předchozím kvízu, Online test znalostí JavaScript, jsme si ověřili nabyté zkušenosti z kurzu.
jak velký je to kód? Pokud není moc dlouhý, můžeš ho dát sem. Taky to ale nemusí jít.
.Script = "Dim ShellObject" & vbCrLf
.Script &= "Set ShellObject = CreateObject(""WScript.Shell"")" & vbCrLf
.Script &= "On Error Resume Next" & vbCrLf
.Script &= "ShellObject.Run(""""""" & Application.CheckInLAN(CheckInDir) & New TFile(PathFileName).FileName & """"""")" & vbCrLf
.Script &= "if err<>0 Then MsgBox """ & Application.Message("AA_Dokument_Edit_AplikaceUpravit_DokumentNeOtevren") & """ & vbcrlf & """ & Application.CheckInLAN(CheckInDir) & New TFile(PathFileName).FileName & """,vbCritical" & vbCrLf
.Script &= "Set ShellObject = nothing" & vbCrLf
.Script &= "Storno()" & vbCrLf
Zobrazeno 3 zpráv z 3.