Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
25.11.2021 08:47:15 |
Konstantin |
|
|
|
25.11.2021 09:30:33 |
Mase |
|
|
|
25.11.2021 09:51:12 |
Konstantin |
|
|
|
25.11.2021 10:33:51 |
Gast15543 |
|
|
|
25.11.2021 12:09:01 |
Gast41368 |
|
|
|
25.11.2021 12:16:22 |
Gast33604 |
|
|
Laufzeitfehler 91 |
25.11.2021 13:08:35 |
Gast50737 |
|
|
|
25.11.2021 13:51:31 |
Mase |
|
|
|
25.11.2021 14:22:07 |
Gast4591 |
|
|
|
25.11.2021 15:04:33 |
Mase |
|
|
Von:
Gast50737 |
Datum:
25.11.2021 13:08:35 |
Views:
456 |
Rating:
|
Antwort:
|
Thema:
Laufzeitfehler 91 |
Leider nicht so ganz... verstehe leider nicht so ganz das Problem... theoertisch habe doch alles richtig benannt und deklariert...
Ich habe leider immernoch einen Laufzeitfehler unten im Code an der selben Stelle.
Naja, ich werde nicht aufgeben! Danke für die Unterstützung!!
Sub Unterordner_verschieben()
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
objFSO.CreateFolder ("\\wttv94011.gbx.corp\Pruefstandsdaten\Arbeitsbereich\" & Seriennummer & "_V" & i & "\" & UnterordnerArray)
objFSO.MoveFile "\\wttv94011.gbx.corp\Pruefstandsdaten\Transferdaten\" & Seriennummer & "\" & UnterordnerArray & "\*", "\\wttv94011.gbx.corp\Pruefstandsdaten\Arbeitsbereich\" & Seriennummer & "_V" & i & "\" & UnterordnerArray
End If
End Sub
|
- 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
|
|
25.11.2021 08:47:15 |
Konstantin |
|
|
|
25.11.2021 09:30:33 |
Mase |
|
|
|
25.11.2021 09:51:12 |
Konstantin |
|
|
|
25.11.2021 10:33:51 |
Gast15543 |
|
|
|
25.11.2021 12:09:01 |
Gast41368 |
|
|
|
25.11.2021 12:16:22 |
Gast33604 |
|
|
Laufzeitfehler 91 |
25.11.2021 13:08:35 |
Gast50737 |
|
|
|
25.11.2021 13:51:31 |
Mase |
|
|
|
25.11.2021 14:22:07 |
Gast4591 |
|
|
|
25.11.2021 15:04:33 |
Mase |
|
|