---

Hallo,

in dem anderen Beitrag hatte ich einen Asschnitt von dem Programm reinkopiert.
Jetzt kopiere ich mal das ganze Programm rein, in der Hoffnung, das doch noch jemand eine Lösung findet : )

Hier führt eine Application aus.
Erst wenn er die Datei, die er geöffnet hat, zumacht, soll er die Datei verschieben und umbenennen.

Programm:
=========

Private Sub Form_Load()

txtFilePath = Dir("V:\Betriebsmittelarchiv\CatiaArchivElektra\temp\temp2\ps\*.ps")

'End Sub

'Private Sub cmdConvert_Click()
    Dim OleObj As Object, fc, s

   
    'Create AutoVue Object
    Set OleObj = CreateObject("AutoVue.Application")
   
    'Open File
    If (IsObject(OleObj)) Then
        OleObj.TransmitCommand ("FILE OPEN " & Chr(34) & "V:\Betriebsmittelarchiv\CatiaArchivElektra\temp\temp2\ps\" & txtFilePath.Text & Chr(34))
        OleObj.TransmitCommand ("WINDOW SHOW")
    End If
   
    'Set convert options and convert
    Dim LastExtPos As Integer
    LastExtPos = InStrRev(txtFilePath.Text, ".", -1)
    txtFilePath.Text = Left(txtFilePath.Text, LastExtPos)

 
    s = s & txtFilePath.Text
    s = s & vbCrLf

    txtOutputPath.Text = "V:\Betriebsmittelarchiv\CatiaArchivElektra\temp\temp2\tif\" & txtFilePath.Text & "tif"
   
    If (IsObject(OleObj)) Then
        OleObj.TransmitCommand ("CONVERT-OPTION AREA=EXTENTS")
        OleObj.TransmitCommand ("CONVERT-OPTION FORMAT=PCRS_TIF")
        OleObj.TransmitCommand ("CONVERT-OPTION SUBFORMAT=3")
        OleObj.TransmitCommand ("CONVERT-OPTION OUTPUT=") & txtOutputPath.Text
       
        OleObj.TransmitCommand ("CONVERT")
    End If

'End Sub
'Sub UnloadOleObj()
     
    If (IsObject(OleObj)) Then
        OleObj.Execute ("QUIT")
    End If
           
    Set OleObj = Nothing

'End
End Sub

Private Sub Command1_Click()
 
 
'End Sub

    'If  (IsObject(OleObj))
    Dim fso As New FileSystemObject
     
    txtfilepath2 = "V:\Betriebsmittelarchiv\CatiaArchivElektra\temp\temp2\ps\"
    txtfilepath3 = "V:\Betriebsmittelarchiv\CatiaArchivElektra\temp\temp2\ps\temp\"
   
    If fso Is Nothing Then Set fso = New FileSystemObject
    fso.MoveFile txtfilepath2 & txtFilePath.Text & "ps", txtfilepath3 & txtFilePath.Text & "ps" & "_fertig"

End Sub

------------------
   

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP