Guten Tag,
ich habe einen Laufzeitfehler 91: Objektvariable oder With-Blockvariable nicht festgelegt.
Für mich ist leider nicht schlüssig wieso..
Der Code:
Sub Unterordner_verschieben()
Dim FSO As Object
Dim objFSO As Object
Dim objFolder As Object
Dim strPfad As String
Dim objSubfolder As Object, colSubfolders As Object
Dim i As Integer
Dim UnterordnerArray As Variant
Dim Subfolders123 As Variant
Dim strFolderName As String
Dim strFolderExists As String
i = 1
With CreateObject("Scripting.FileSystemObject")
strFolder = Folder
Do
If .FolderExists(Folder & "_V" & i) Then
i = i + 1
Else
GoTo UnterordnerVerpacken
Exit Do
End If
Loop
End With
UnterordnerVerpacken:
strPfad = "\\wttv94011.gbx.corp\Pruefstandsdaten\Transferdaten\" & Seriennummer
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPfad)
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder In colSubfolders
UnterordnerArray = objSubfolder.Name
Next objSubfolder
Set objFolder = Nothing
Set colSubfolders = Nothing
Set objFSO = Nothing
'liest die Namen der Unterordner in ein Array ein
'For Each Subfolders123 In UnterordnerArray
'Next Subfolders123
'MsgBox UnterordnerArray
strFolderName = "\\wttv94011.gbx.corp\Pruefstandsdaten\Transferdaten\" & Seriennummer
strFolderExists = Dir(strFolderName, vbDirectory)
If strFolderExists = "" Then
MsgBox "Es gibt keine Unterordner"
Else
FSO.CreateFolder ("\\wttv94011.gbx.corp\Pruefstandsdaten\Arbeitsbereich\" & Seriennummer & "_V" & i & "\" & UnterordnerArray)
FSO.MoveFile "\\wttv94011.gbx.corp\Pruefstandsdaten\Transferdaten\" & Seriennummer & "\" & UnterordnerArray & "\*", "\\wttv94011.gbx.corp\Pruefstandsdaten\Arbeitsbereich\" & Seriennummer & "_V" & i & "\" & UnterordnerArray
End If
End Sub
|