.lookin blijft hangen op de verkeerde dir.

[Kramer]

Hoi iedereen.

Ik heb een stukje code. Maar nu blijft het stukje code .lookin = curdir verwijzen naar de verkeerde directory. Ik vermoed dat dit komt door een update van office2003. Hier werk ik nog mee.

hier de code

Sub opslaan()
Dim strDir As String
Dim strFileName As String
Dim FSO As New Scripting.FileSystemObject

strDir = Options.DefaultFilePath(wdDocumentsPath) 'Bestandslocatie documenten
strFileName = ActiveDocument.Name

    ActiveDocument.Save
    ChangeFileOpenDirectory "t:\cor\"

    With Application.FileSearch
        .LookIn = CurDir
        .FileName = strFileName
        If .Execute > 0 Then
            With Dialogs(wdDialogFileSaveAs)
                .Name = "t:\cor\" & strFileName
                .Show
            End With
        Else
            ActiveDocument.SaveAs strFileName
        End If
    End With

    ActiveDocument.Close

    ChangeFileOpenDirectory strDir

    With Application.FileSearch
        .LookIn = CurDir
        .FileName = strFileName
        If .Execute > 0 Then
            FSO.DeleteFile strFileName, True
        Else
        End If
    End With

    Dialogs(wdDialogFileOpen).Show

End Sub

Kan iemand mijn helpen.

 

[wampier]

CurDir geeft de huidige directory van windows. Als je die aan wil passen moet je volgens mij "ChDir" gebruiken. Ik ken "ChangeFileOpenDirectory", maar dat is geen onderdeel van de standaard instructieset. Als het onderdeel is van FSO moet je daar mogelijk naar verwijzen.

 

[snb]

Dit doet hetzelfde

Sub opslaan_snb()
    ActiveDocument.Save
    if dir("T:\cor\" & activedocument.name)<>"" then kill "T:\cor\"& activedocument.name
    activedocument.saveas "T:\cor\"& activedocument.name
End Sub

 

[Kramer]

Bedankt

voor de snelle reacties, zal dadelijk na de lunch kijken naar de oplossingen.
@snb

gooit hij dan het document ook weg in de dir waaruit je werkt?

 

[snb]

Nee

 

[Kramer]

Dacht ik

Ok dan ga ik nog even sleutelen zodat ik de macro weer zoals het hoort werkt. Zal wel kijken of ik jou stukje code erin kan verwerken.

 

[snb]

Mijn code is bedoeld in plaats van jouw volledige code.

 

[Kramer]

Raar,

want hij gooit niet mijn bestand weg nadat ik jouw macro gedraaid heb.

Mijn opslaan macro is nog al groot.

dit stukje code staat er in om het document te sluiten en weg te gooien uit dir waaruit hij is geopend.

With Application.FileSearch
        .LookIn = CurDir
        .FileName = strFileName
        If .Execute > 0 Then
            FSO.DeleteFile strFileName, True
        Else
        End If
    End With

    Dialogs(wdDialogFileOpen).Show