PDA

Vollständige Version anzeigen : file in folder kopieren


mica
22.11.2000, 10:47
ich muß ein file, dessen Pfad ich durch eine string Variable übergebe in einen festgelegten Ordner kopieren
Mein code sieht folgendermaßen aus!?!


SourceFile = Pfad
DestinationFile = "C:\Temp\pdf"

FileCopy source:="SourceFile", destination:="DestinationFile"

was mache ich falsch???
danke schon mal

Manuela Kulpa
22.11.2000, 11:25
Hallo mica!

Du musst den Dateinamen rausextrahieren! Ich vermute, du hast Access 97? Versuche doch mal folgendes:

Function InStrRevA97(sPath As String, sSearchString) As String

Dim strNew As String
Dim intCounter As Integer
Dim chrTmp As String * 1

For intCounter = Len(sPath) To 1 Step -1
chrTmp = Mid$(sPath, intCounter, 1)
If chrTmp <> sSearchString Then
strNew = chrTmp & strNew
Else
Exit For
End If
Next intCounter

InStrRevA97 = strNew

End Function


Sub CopyFile(SourceFile As String)

Dim sDatei As String
Dim sDestination As String

sDestination = "H:\Download"

' Die Funktion InStrRevA97 gibt die Position eines
' Vorkommnisses einer Zeichenfolge in einer anderen
' Zeichenfolge vom Ende der Zeichenfolge gesehen an
sDatei = InStrRevA97(SourceFile, "\")

If Len(sDatei) > 0 Then
FileCopy Source:=SourceFile, Destination:=sDestination & "\" & sDatei
MsgBox "Datei erfolgreich kopiert", vbInformation, "Hinweis"
End If

End Sub

Aufruf mit: CopyFile("C:\DeinPfad\DeineDatei.xxx")

LLAP

mica
22.11.2000, 13:02
Vielen Dank, hat funktioniert!!!
Gruß mica