Datei hinter Hyperlink in anderen existierenden Ordner verschieben
Halloo zusammen
ich würde gerne die Datei hinter meinem Hyperlink der in Orderner "Test-PDF" liegt, in den darin existierenden Ordner "Geloescht" verschieben, könnt ihr mir eventuell helfen? Kann ich da mit FSO.MoveFile vorgehen?
ich würde gerne die Datei hinter meinem Hyperlink der in Orderner "Test-PDF" liegt, in den darin existierenden Ordner "Geloescht" verschieben, könnt ihr mir eventuell helfen? Kann ich da mit FSO.MoveFile vorgehen?
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 235572
Url: https://administrator.de/contentid/235572
Ausgedruckt am: 25.11.2024 um 22:11 Uhr
15 Kommentare
Neuester Kommentar
Hallo Anna2701
schau dir mal diesen Beitrag an, der sollte dir helfen !
Dateien verschieben mit VBScript
Gruß Alex
schau dir mal diesen Beitrag an, der sollte dir helfen !
Dateien verschieben mit VBScript
Gruß Alex
FSO.MoveFile Quellpfad & "\*.*", Zielpfad & "\"
Die FSO.MovieFile Funktion ist eigentlich selbsterklärend oder ?
Du benötigst einen Quellpfad (Test-PDF) und einen Zielpfad (Geloescht).
Danach musst du noch einschränken welche Dateien verschoben werden sollen.
Das kannst du hier
& "\*.*"
Möchtest du sonst noch was wissen ?
Dim objFSO, newDIR
ziel="Filepath_Neu\Geloescht"
Set objFSO = CreateObject("Scripting.FileSystemObject")
if objFSO.Folderexists(ziel) = false then
Set newDIR = objFSO.CreateFolder(ziel)
end if
So müsste der Teil dann aussehen. Das Geloescht hinter ziel="Filepath_Neu\ brauchst du um den Ordner zu überprüfen bzw. erstellen.
So solltest du keine Probleme haben. War mir nicht sicher ob das Geloescht (Filepath_Neu\Geloescht) auf diese Weise übergeben wird.
Dim objFSO, newDIR
ziel="\\stahl01.com\dfs08\VSP\Vertriebsservice\Aussenwirtschaft_Exportkontrolle\Trade-Relations\Abteilungsinterna\Ausbildung und Praktikum\TKSE Ausbildung\2014\Annabell Smits\Mini-Anwendung Löschung von Erklärungen\Test-PDF\Geloescht"
Set objFSO = CreateObject("Scripting.FileSystemObject")
if objFSO.Folderexists(ziel) = false then
Set newDIR = objFSO.CreateFolder(ziel)
end if
Hallo Anna2701!
Wenn ich das richtig verstanden habe, dann willst Du doch die Datei verschieben, die in Hyperlink.Address angegeben ist?
Wenn ja, dann in etwa so:
Grüße
spatzenhirn
Wenn ich das richtig verstanden habe, dann willst Du doch die Datei verschieben, die in Hyperlink.Address angegeben ist?
Wenn ja, dann in etwa so:
Dim oFso As Object, sNewFolder As String, sOldFile as String, sNewFile As String
On Error Resume Next
Set oFso = CreateObject("Scripting.FileSystemObject")
sOldFile = TxtHyperlinkDokument.Hyperlink.Address
'Test ob Datei existiert, ansonsten abbrechen
If Not oFso.FileExists(sOldFile) Then
MsgBox "Datei existiert nicht!"
'Hyperlink löschen...
Exit Sub
End If
'Ordnerpfad von Hyperlink.Address
sNewFolder = oFso.BuildPath(oFso.GetParentFolderName(sOldFile), "Gelöscht")
'Dateipfad mit Unterordner "Gelöscht"
sNewFile = oFso.BuildPath(sNewFolder, oFso.GetFileName(sOldFile))
'Ordner erstellen, falls nicht vorhanden
If Not oFso.FolderExists(sNewFolder) Then
oFso.CreateFolder sNewFolder
End If
'Datei verschieben
oFso.MoveFile sOldFile, sNewFile
If Err.Number Then
'...
Else
'...
End If
Grüße
spatzenhirn