VB 6 неработает на server 2003

  1. Прилагаю исходники программы, у меня она на XP норм работает ан 2003 сервере не работает чтение из файлов ini может кто проверит?
     
  2. Евгений70,
    а какие эрроры??
    может, библиотеки не хватает. Если есть возможность, попробуй скомпилить на 2003 и посмотреть эрроры.
     
  3. Он не выдает ошибок он тупо не читает данные из ini
     
  4. не нужно перед именем файла указывать не правильный слеш, и указывать нужно полный путь:

     
    1 человеку нравится это.
  5. пасибо помогло, извините но у меня кривые руки. Что неработает в этом коде?

    При дебаге выделяет именно сточку принт
     
  6. Евгений70, все плюсики пробелами выдели с двух сторон

    Код:
    Sub INCFILER()
    Dim f As Integer
    f = FreeFile
    Open "C:/txtFile.txt" For Output As f
    Print #f, "<?php" + vbCrLf + "$STotalOnline = " + Label7.Caption + vbCrLf + "$SBelOnline = " + Label9.Caption + vbCrLf + "$SCorOnline = " + Label20.Caption + vbCrLf + "$STotalOnline = " + Label18.Caption + vbCrLf + "$STUH = " + Str(a_hour) + vbCrLf + "$STUM = " + Str(a_minute) + vbCrLf + "$STUS = " + Str(a_second) + vbCrLf + "?>"
    Close f
    End Sub
     
  7. chimatii,
    мало того, PHP кривой у него. А лучше вообще заменить плюсы на "&"

    Код:
    Dim f As Integer
    f = FreeFile
    Open "C:\txtFile.txt" For Output As f
    Print #f, _
    "<?php" & vbCrLf & _
    "$STotalOnline = " & Label7.Caption & ";" & vbCrLf & _
    "$SBelOnline = " & Label9.Caption & ";" & vbCrLf & _
    "$SCorOnline = " & Label20.Caption & ";" & vbCrLf & _
    "$STotalOnline = " & Label18.Caption & ";" & vbCrLf & _
    "$STUH = " & Str(a_hour) & ";" & vbCrLf & _
    "$STUM = " & Str(a_minute) & ";" & vbCrLf & _
    "$STUS = " & Str(a_second) & ";" & vbCrLf & _
    "?>"
    Close f
     
    1 человеку нравится это.
  8. Вы действительно правы нащет пшп, его просто вобще незнаю. Но вашь вариант тоже неработает.
     
  9. Евгений70,
    что пишет ?