Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
26.05.2019 00:27:22 |
Gast22313 |
|
|
|
26.05.2019 09:09:17 |
Gast65119 |
|
|
|
26.05.2019 12:26:08 |
Gast18323 |
|
|
|
26.05.2019 14:29:53 |
Gast65119 |
|
|
|
26.05.2019 21:44:12 |
Gast33703 |
|
|
|
26.05.2019 22:54:04 |
Gast7777 |
|
|
Datei speichern mit API Funktion |
27.05.2019 08:12:53 |
Gast75640 |
|
|
|
27.05.2019 15:31:05 |
Gast60124 |
|
|
|
27.05.2019 16:46:15 |
Gast75640 |
|
|
|
27.05.2019 18:58:14 |
Gast20750 |
|
|
Von:
Gast75640 |
Datum:
27.05.2019 08:12:53 |
Views:
441 |
Rating:
|
Antwort:
|
Thema:
Datei speichern mit API Funktion |
< ich habe einen Dateinamen und den zugehörigen Pfad einer pdf Datei
< Dabei sollen keine Rückfragen per MsgBox kommen
>> und wo bitte ist das Problem?
Option Explicit
Private Declare Function CopyFile Lib "kernel32" _
Alias "CopyFileA" (ByVal lpExistingFileName As String, _
ByVal lpNewFileName As String, ByVal bFailIfExists As Long) _
As Long
'using API
Sub APICopy()
Dim cflag As Boolean
Dim sfile As String
Dim tfile As String
sfile = "E:\VBA\Source\Mappe2.pdf"
tfile = "E:\VBA\Target\Mappe4.pdf"
'copy
Call fCopy(sfile, tfile)
End Sub
Public Function fCopy(ssource As String, starget As String, _
Optional IfExist As Boolean) As Boolean
'http://www.freevbcode.com
Dim lflag As Long
lflag = CopyFile(ssource, starget, IfExist)
fCopy = (lflag > 0)
End Function
'______________________________________________________________________
'using fso - ref to microsoft scripting runtime
Sub fsoCopy()
Dim sfile As String
Dim tfile As String
Dim ofso As Object
sfile = "E:\VBA\Source\Mappe2.pdf"
tfile = "E:\VBA\Target\Mappe5.pdf"
Set ofso = CreateObject("Scripting.FileSystemObject")
ofso.CopyFile sfile, tfile
Set ofso = Nothing
End Sub
'using FileCopy Statement
'______________________________________________________________________
Sub VBAcopy()
Dim sfile As String
Dim tfile As String
Dim ofso As Object
sfile = "E:\VBA\Source\Mappe2.pdf"
tfile = "E:\VBA\Target\Mappe5.pdf"
FileCopy sfile, tfile
End Sub
oder was meinst du machen vbScript oder VBA anders als ebenfalls die Windows Schnittstelle zu bemühen.
Dagegen habe ich den Verdacht du versuchst eine geöffnete Datei umzubenennen.
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
26.05.2019 00:27:22 |
Gast22313 |
|
|
|
26.05.2019 09:09:17 |
Gast65119 |
|
|
|
26.05.2019 12:26:08 |
Gast18323 |
|
|
|
26.05.2019 14:29:53 |
Gast65119 |
|
|
|
26.05.2019 21:44:12 |
Gast33703 |
|
|
|
26.05.2019 22:54:04 |
Gast7777 |
|
|
Datei speichern mit API Funktion |
27.05.2019 08:12:53 |
Gast75640 |
|
|
|
27.05.2019 15:31:05 |
Gast60124 |
|
|
|
27.05.2019 16:46:15 |
Gast75640 |
|
|
|
27.05.2019 18:58:14 |
Gast20750 |
|
|