Sub CreateFolder(ByVal Folder As String)
Dim strFolder As String
Dim Pfad As String
Seriennummer = ComboBox1.Value
i = 1
With CreateObject("Scripting.FileSystemObject")
strFolder = Folder
Do
If .FolderExists(Folder & "_V" & i) Then
'strFolder = strFolder & "_V" & i
strFolder = .GetFolder(Folder) & "_V" & i
Erklär mir mal, was Deiner Meinung nach hier passieren soll?
Ich kanns nicht nachvollziehen.
|