Datum: 12.3. 2012 | Zobrazeno: 9652x
Konfigurace CATIA:

Text dotazu:
Ahoj, nevidí někdo prosím chybu v následujícím scriptu:

Dim sDocPath As String



Set oName = partDocument1.GetItem("CATLayoutRoot")



sDocPath = InputBox("Kam uložit ?", "Výstupní adresáø", "D:\TEMP", 2000, 4000)



If (Not CATIA.FileSystem.FolderExists(sDocPath)) Then

    

       i = MsgBox("Zvoleny adresar neexistuje: " & sDocPath, vbExclamation, "Error")

       Exit Sub

    End If

Dříve mně to fungovalo správně tj. ověření zda Folder existuje či ne, ale nyní pokaždé makro zahlásí, že adresář neexistuje, i když realita je jiná.