VBS Script zum verschieben von Dateien

[werwe]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo an Alle!

ich brauche gaaanz dringend ein VBS Script um Datein aus einem besteimmten Ordner BSP: "\\10.1.\Scan\Anlage" in eine bestehende Ordnerstruktur zu verschieben.
Der Ordnerstruktur ist in verschieden Ebenen gegliedert.

Zielstrukur:
\\10.3.3.\100
\\10.3.3.\110
\\10.3.3.\120
\\10.3.3.\130
und in dieser Ordnern befinden weitere Ordner. ungefähr so: \\10.3.3.\100 --> Ordner 100, 101, 102, 103

Bitte helft mir!
Vielen Dank für eure Mühen!!

Mit freundlichen Grüßen
WERWE

 

[werwe]

Ergänzend zu meiner Anfrage muss ich noch folgenden Sachverhalt darstellen.:
Die Zuordnung der Datei soll anhand der Datei Bezeichnung erfolgen.
Die Dateien sind immer nach dem Muster "103 Ablage 1.pdf" benannt.

Mit freundlichen Grüßen
Werwe

 

[PN/DP]

Zuviel Werbung?
-> Hier kostenlos registrieren

Auf welchem Gerät soll das laufen? Windows-PC, WinCe-Panel, ...?

Für Dich nicht ganz fertig, auch nicht ganz perfekt realisiert, aber gute Anregung:
WinCC Flex VBScript WinCe - Move *.* bzw. Dateien kopieren

Harald

 

[werwe]

Auf einem Windows 7 Rechner

 

[werwe]

Option Explicit
Dim fso, source, target

source = "C:\Users\sven\Desktop\Start"
target = "C:\Users\sven\Desktop\Ziel"

Set fso = CreateObject("Scripting.FileSystemObject")

MoveFiles source, target
WScript.Echo "Verschieben der Dateien Beendet"

Sub MoveFiles(strSource, strTarget)
Dim oFolder, oFolders, oFiles, item
DIM oxFolder, oxFolders, oxFiles
Dim strFilename, strFiletype, iNr, bFileExists

Set oFolder = fso.GetFolder(strSource)
Set oFolders = oFolder.SubFolders
Set oFiles = oFolder.Files

Set oxFolder = fso.GetFolder(strTarget)
Set oxFolders = oxFolder.SubFolders
Set oxFiles = oxFolder.Files


For each item in oFolders
MoveFiles item, strTarget
Next

For Each item In oFiles
strFilename = item.Name
iNr = 0
Do
bFileExists = False
If fso.FileExists(strTarget & "" & strFilename) Then
bFileExists = True
iNr = iNr + 1
strFilename = Left(item.Name, InStrRev(item.Name, ".", -1, 1) - 1)
strFiletype = Right(item.Name, Len(item.Name) + 1 - InstrRev(item.Name, ".", -1, 1))
strFilename = strFilename & "(" & iNr & ")" & strFiletype
End If
Loop Until bFileExists = False

fso.MoveFile item, strTarget & "" & strFilename
Next

If strSource <> source Then
fso.DeleteFolder(strSource) ' Ordner löschen
End If
End Sub




Ich habe mich ein wenig versucht. Das Problem ist das die Unterordner nicht durchsucht werden und das der Name nur die Ziffer enthalten darf. Ich hab aktuell aber keine Ahnung, wie ich das lösen kann. :sad:

 

[Larry Laffer]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hast du mal versucht, an der richtigen Stelle mit MoveFolder an Stelle von MoveFiles zu arbeiten ?
MoveFolder sollte das gewählte Verzeichnis mit seinen Inhalten und alle daran hängenden Unterverzeichnisse mit deren Inhalten verschieben ...

Gruß
Larry