thisProject.DynProperties("GUID") gibt "leer"

[alice18]

Hallo,
ich versuche in 6.22 SP0:
Guid = thisProject.DynProperties("GUID")
Datei = "C:\Dokumente und Einstellungen\All Users\Anwendungsdaten\COPA-DATA\SQL\" & Guid & "\FILES\zenOn\custom\languages\ZENONSTR.txt"

aber kriege guid="leer"

Wo liegt mein Fehler?

[robertf]

Hallo!

ich denke es wäre viel einfacher, wenn man den Pfad wie folgt ausliest:

Sub GetLanguagePath()
  Dim strPath As String
  strPath = thisProject.ModulePath(tpPathLanguage) & "\zenonStr.txt"
  Debug.Print strPath
End Sub

[alice18]

Na ja, aber ich muss Sprachtabelle änder und Änderungen auch im Editor sehen, deswegen versuche ich auf Anwendungsdaten\COPA-DATA\SQL\" & Guid & "\FILES\zenOn\custom\languages\ZENONSTR.txt"

ist das falsch?

[robertf]

Nein, es ist nicht falsch...

Damit ich sehe, wo genau das Problem liegt, müsste ich es debuggen...
Wahrscheinlich liegt es daran, dass man "thisProject" nicht im Editor verwenden soll/darf!!!

Im Editor sieht es dann wie folgt aus:

'If the project is the 'Active' project
Sub GetLanguagePath()
  Dim strPath As String
  
  strPath = MyWorkspace.ActiveDocument.ModulePath(tpPathLanguage) & "\zenonStr.txt"
  Debug.Print strPath
End Sub

'If any Project in the Workspace should be used...
Sub GetLanguagePath()
  Dim obProject As Project
  Dim strPath As String
  
  Set obProject = ApplicationED.Projects.Item("PROJECTNAME")
  strPath = obProject.ModulePath(tpPathLanguage) & "\zenonStr.txt"
  Debug.Print strPath
End Sub

[alice18]

so ist mein Code:

Private Sub GW_speichern_Click()
Dim FFile As Integer
Dim Datei As String
Dim strBuf As String
Dim varDatei As String
Dim varDatei2 As String
Dim Str As String

Guid = thisProject.DynProperties("GUID")
Datei = "C:\Dokumente und Einstellungen\All Users\Anwendungsdaten\COPA-DATA\SQL\" & Guid & "\FILES\zenOn\custom\languages\ZENONSTR.txt"
'Datei = "C:\Dokumente und Einstellungen\All Users\Anwendungsdaten\COPA-DATA\SQL\b886aa57-f4ee-492d-a1cf-d00aaceccc4d\FILES\zenOn\custom\languages\ZENONSTR.txt"
FFile = FreeFile
Open Datei For Input As FFile
....
routine
...
Loop
Close FFile


Open Datei For Output As FFile
Print #FFile, Str
Close FFile

lang = thisProject.ModulePath(tpPathLanguage) & "\ZENONSTR.txt"
FileCopy Datei, lang
thisProject.RtFunctions.Item("fct_nachladen").Start
End Sub

Datei ist "C:\Dokumente und Einstellungen\All Users\Anwendungsdaten\COPA-DATA\SQL\leer\FILES\zenOn\custom\languages\ZENONSTR.txt"

lang ist "C:\Dokumente und Einstellungen\All Users\Dokumente\zenOn_Projects\test\SUEDCHEMIE\RT\ FILES\zenOn\custom\languages\ZENONSTR.txt"

[robertf]

Wie ich schon im letzten Beitrag "ROT" geschrieben habe, ist das Problem die Verwendung von "thisProject" im Editor!

Das "thisProject" Objekt ist nur für die Runtime, nicht für den Editor!!!

Der VBA Code, der im Editor ausgeführt werden soll muss im VBA Project ZWorkspace enthalten sein!
Die VBA Projekte mit dem zenon Projektnamen sind nur für die Runtime!

In meinem Beispiel wird thisProject nicht verwendet und es funktioniert (wird auch in den Wizards genau so verwendet).

Ich hoffe das Missverständnis wird dadurch klarer...