Hallo,
ich habe mit meinem Script ein Problem:
Es soll von dem Inhalt eines Ordners Hardlinks erstellen.
Ich habe mir das so vorgestellt:
Ordnerstruktur:
Ordner1
..Unterordner1
....Unterunterordner1
....Unterunterordner2
..Unterordner2
....Unterunterordner3
..Unterordner3
Das soll das Prog erstellen:
Ordner2
..Unterordner1
....Hardlink zu Unterunterordner1
....Hardlink zu Unterunterordner3
..Unterordner2
....Hardlink zu Unterunterordner3
..Hardlink zu Unterordner3
Ich habe auch schon was gemacht, es funktioniert nur nicht richtig.
Spoiler anzeigen
Dim $dir = Ordner1 in dem die Unterordner liegen
Dim $dir2 = Ordner2 in dem Die Hardlinks erstellt werden
$search = FileFindFirstFile( $dir & "*.*" )
If $search = -1 Then
MsgBox(0, "Error", "No files/directories matched the search pattern")
Exit
EndIf
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
If FileExists( $dir & $file & "\NUL" ) Then
MsgBox( 1, "bla" , "1" )
DirCreate( $dir2 & $file )
$search2 = FileFindFirstFile( $dir & $file & "\*.*" )
While 1
$file2 = FileFindNextFile($search2)
If @error Then ExitLoop
If FileExists( $dir & $file & "\" & $file2 & "\NUL" ) Then
MsgBox(1, "bla", "Link: " & FileCreateNTFSLink($dir & $file & "\" & $file2, $dir2 & $file & "\" & $file2 ))
Else
FileCreateNTFSLink($dir & $file, $dir2 & $file )
EndIf
FileClose($search2)
WEnd
EndIf
WEnd
FileClose($search)
Wäre über eure Hilfe sehr Dankbar