|
VB 4/6- und VBA-Forum - Beitragsübersicht - |
|
Von |
ThomasA |
Datum |
15. Juni 2018 um 07:47:15 |
Frage |
Hallo,
seit der Umstellung meines PC auf Windows 7/64Bit funktioniert in Word 2016 mein Source nicht mehr einwandfrei. Der Kill-Befehl schlägt mit dem Error 70 (Dateizugriff) fehl.
Szenario:
Ich öffne eine rtf-Datei (Bsp. "xxx_WordDatei.rtf") und speichere sie dann per Source im rtf-Format als "WordDatei.doc" (soll so sein und hat immer funktioniert).
Source:
ActiveDocument.SaveAs FileName:=DokumentPfad & "\" & WordDatei.doc, FileFormat:=wdFormatRTF, _ LockComments:=False, Password:="", AddToRecentFiles:=False, WritePassword:="", _ ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False
Szenario:
Nun soll die noch vorhandene Datei "xxx_WordDatei.rtf" gelöscht werden (denn diese ist ja nun eigentlich nicht mehr bei Word in Gebrauch, sondern die neue Datei "WordDatei.doc")
Source:
<hier ist noch eine Abfrage (Msgbox) und eine Pause incl. DoEvents enthalten>
If Dir(DokumentPfad & "\" & xxx_WordDatei.rtf) <> Empty Then Kill (DokumentPfad & "\" & xxx_WordDatei.rtf)
Szenario:
Jetzt nun immer eine Fehlermeldung Error 70 (Dateizugriff) und die Datei kann nicht gelöscht werden (natürlich auch nicht manuell im Dateiexplorer).
Hat jemand eine Idee, wie man diesem Problem entgegnen kann (ggf. in Windows die Datei wieder freigeben o.ä.).
LG Thomas
|
|
[ Antwort schreiben | Zurück zum VB 4/6- und VBA-Forum | Forum-Hilfe ] |
|
Letzte Aktualisierung: Sonntag, 13. Dezember 2015 |
|