Hallo, sorry das der quellcode im letzten posting so hintereinander steht. das macht das forum irgendwie automatisch. beim bearbeiten steht es untereinander :( ich habe den part mit dem datum zwischenspeichern jetzt auch hinbekommen, der parameter überschreiben JA hat noch gefehlt. das ganze funktioniert jetzt so wie es soll. mal schaun ob ich es noch ausbaue mit variablen pfaden über eingabe etc. auf jedenfall schon mal danke für eure hilfe! gruß ayk

 Hallo,

ich setz mal den thread fort weil ich in dem zusammenhang das nächste problem habe.

Die Datei die ich kopieren möchte wird zugleich von einem Programm benutzt.

Dieser Umstand lässt sich auch nicht ändern. Dadurch quittiert mir mein Script den Kopiervorgang mit "Kein Zugriff".

Nun habe ich folgenden Quellcode gefunden der auch geöffnete Dateien kopieren soll

Normal 0 21 false false false DE X-NONE X-NONE Option Explicit

 

' Benötigte API-Deklaration

Private Declare Function CopyFile Lib "kernel32" _

  Alias "CopyFileA" ( _

  ByVal lpExistingFileName As String, _

  ByVal lpNewFileName As String, _

  ByVal bFailIfExists As Long) As Long

 

' Ersetzen des FileCopy-Befehls von VB :-)

Public Function FileCopy(ByVal sSourceFile As String, _

  ByVal sDestFile As String, _

  Optional ByVal bAlwaysOverwrite As Boolean = True) As Boolean

 

  Dim nResult As Long

 

  nResult = CopyFile(sSourceFile, sDestFile, CLng(Abs(Not bAlwaysOverwrite)))

  FileCopy = (nResult <> 0)

End Function

 

 

Wenn ich den Quellcode jetzt in eine .vbs einfüge und das Script starten will  weldet er mir hier: Private Declare Function 

Anweisungsende erwartet.

Was mach ich falsch?

Grüße

Ayk

Sorry, der gefundene Code ist für VB6 und nicht für VBScript.

VBScript kennt keine Typenangaben (z.B. As String, As Long, ...) und keine Public Functions oder gar eine Wertübergabe mittels ByVal.

ok das erklärt schon mal einiges. die frage ist dann immernoch wie bekomm ich die geöffnete datei kopiert?

probier es damit: hat bei mir keine Fehler erzeugt:

Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "C:\x.txt", "c:\x2.txt"

Gruß, Roland

Hallo, ist denn Dein Code vollständig?
wann belegst Du die Variable Datum_erstellung, die Du dann wegschreibst ==> gib davor mal eine msgbox Datum_erstellung  ein und schaue es Dir an ==> steht da was drinnen?
Gruß,
Roland

'************** Ordner Überprüfen ********************* '1
Dim OrdnerFSO '2 '3
Set OrdnerFSO = CreateObject("Scripting.FileSystemObject") '4 '5 'Wenn Ordner schon existiert, dann nicht neu erstellen '6
If OrdnerFSO.FolderExists("C:\TEST_VBS") = False Then '7
OrdnerFSO.CreateFolder("C:\TEST_VBS") '8
End  If '9 '10

'************* Configdatei erstellen und öffnen und initialisieren****

Dim Config '12
Dim ConfigFSO '13
Const ForReading = 1, ForWriting = 2, ForAppending = 8 '14 '15
Set ConfigFSO = CreateObject("Scripting.FileSystemObject") '16 '17
If ConfigFSO.FileExists("C:\config.txt") = False Then '18
Set Config=ConfigFSO.CreateTextFile("C:\config.txt", true) '19 '
Set Config = ConfigFSO.OpenTextFile("c:\config.txt", ForWriting) '20
Config.Writeline "01.01.2000" '21
Config.Close '22
End If '23 '24
Set Config = ConfigFSO.OpenTextFile("c:\config.txt", ForReading) '25 '26
 '************ Quelldatei Erzeugungsdatum auslesen und mit Config vergleichen '27 '28
Dim Datei '29
Dim DateiFSO '30
Dim DateiDatumAkt '31
Dim DateiDatumSp '32 '33
Set DateiFSO = CreateObject("Scripting.FileSystemObject") '34
Set Datei = Dateifso.GetFile("c:\test.txt") '35 '36
DateiDatumAkt=Datei.datecreated '37
DateiDatumSp = Config.Readline '38
Config.close '39 '40
If NOT DateiDatumAkt=DateiDatumSp Then '41 '************Quelldatei ist neuer Kopieren, Umbenennen und Datum Speichern***** '42
dim A '43
dim Dateiname_alt '44
dim Dateiname_neu '45
dim Pfad '46
dim Pfadneu '47
dim ext '48
dim Monatszahl '49
dim Tagzahl '50 '51
Pfadneu="c:\TEST_VBS\" '52
Dateiname_alt = Datei.name '53
 Pfad = Datei.path '54 Ext = Dateifso.GetExtensionName(Dateiname_alt) '55 '56
A=instr(Pfad,"\") '57
if A <>0 then Pfad = left(Pfad, A) '58
A= instr(Dateiname_alt, ".") '59 '60
if len(Month(now()))=1 then '61 Monatszahl = "0" & Month(Now()) '62
else '63
Monatszahl = Month(now()) '64
End if '65 '66

 if len(Day(now()))=1 then '67
 Tagzahl = "0" & Day(Now()) '68
else '69
Tagzahl = Day(now()) '70
End if '71 '72

Dateiname_neu =Pfadneu & left(Dateiname_alt, A-1) & "_" & year(now()) & Monatszahl & Tagzahl & "_" &hour(now()) & "_" &minute(now()) & "_" &second(now()) & "." & Ext '73 '74
Datei.Copy (Dateiname_neu) '75 '76 '77
Set Config = ConfigFSO.OpenTextFile("c:\config.txt", ForWriting) '78
Config.WriteLine=(Datum_erstellung) '79
Config.Close '80 '81 '82
set Datei = nothing
'83
set Dateifso = nothing '84 '85
Else '86
msgbox "Datei nicht neu" '87
End If '88 '89

danke für die antwort, funktioniert bei mir auch, mit editor, excel, access nur nicht mir dem programm (nextview) wo es funktionieren soll... da meldet er mir fleißig weiter erlaubnis verweigert

in dem Fall hast du recht, hatte bei mir die Datum_Erstellung schon durch DateiDatumAkt ersetzt. Die config wird richtig geschrieben und anschließend auch richtig abgefragt. Der Script Fehler "Erlaubnis verweigert" läuft definitiv in der Zeile (78) Datei.Copy auf. egal ob mit Datei.Copy oder mit DateiFSO.CopyFile hier nochmal die aktuellen Zeilen zum Kopieren der Datei.
Set DateiFSO = CreateObject("Scripting.FileSystemObject") 'Zeile 34
Set Datei = Dateifso.GetFile ("c:\messdaten\latest.lfx") 'Zeile 35
.
.
.
Dateifso.Copyfile "c:\messdaten\latest.lfx", (Dateiname_neu) 'Zeile 78 hab grad probiert die datei mit dem explorer zu kopieren: Meldung: "Datei wird verwendet kopieren nicht möglich bitte beenden sie alle Programme die die Datei verwenden könnten."

wenn man so "googled", dann findet man HOBOCOPY

http://translate.google.de/translate?hl=de&langpair=en%7Cde&u=http://www.howtogeek.com/howto/windows-vista/backupcopy-files-that-are-in-use-or-locked-in-windows/

Gruß, Roland

 hallo,

hab mir das programm gezogen und es macht das was es soll.

muss ich jetzt noch in mein script einbinden und dann die kopierte datei nach meinen maßstäben sichern.

grüße

 hallo,

es funktioniert endlich!

muss zwar mit hobo eine kopieanlegen die ich dann erst über das script mit datum und uhrzeit sichere, da diese aber jedesmal überschrieben wird ist es nicht weiter wild!

 danke nochmal für die hilfe!

mfg