Expertenfrage --> Dringend

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Expertenfrage --> Dringend
von: Steffen
Geschrieben am: 19.05.2002 - 20:36:12

Hallo Leute, ich habe ein komisches Problem also ich hab folgende zwei Module:

Sub DateienEinlesen1()
Range("A3:A20").ClearContents
On Error GoTo Fehler
Dim FileArray()
Dim i%, n%
Dim Ordner$, Extension$, dName$
Ordner = "C:\Seriendruck"
'Extension = InputBox("Dateityp:", , "*.xls")
ChDrive Left(Ordner, 1)
ChDir Ordner
dName = Dir(Extension)
Do While dName <> ""
n = n + 1
ReDim Preserve FileArray(1 To n)
FileArray(n) = dName
dName = Dir()
Loop
For i = 1 To n
ActiveSheet.Cells(i + 2, 1) = FileArray(i)
Next
Exit Sub
Fehler:
MsgBox ("Ein Fehler ist aufgetreten." & Chr(13) & "Wahrscheinlich existiert das Verzeichnis:" & Chr(13) & "C:Seriendruck" & Chr(13) & "nicht!")
End Sub

und Modul

Sub Alles_loeschen()
Call DeleteFolder("C:\Seriendruck")
End Sub

Public Sub DeleteFolder(sFolder As String)
Dim fso As New FileSystemObject
Dim Text As String
Dim Antwort

Text = "Wollen Sie den Ordner " & sFolder & vbCrLf & _
"wirklich löschen?" & vbCrLf & vbCrLf & _
"Alle darin befindlichen Dateien gehen verloren."


On Error GoTo DeleteFolder_ERROR

If fso.folderexists(sFolder) Then
Antwort = MsgBox(Text, vbQuestion + vbYesNo, "Ordner löschen")

If Antwort = vbYes Then
fso.DeleteFolder (sFolder)
Else
MsgBox "Der Ordner wurde nicht gelöscht."
End If
Else
Err.Raise 10001, "Verzeichnis existiert nicht"
End If

Exit Sub
DeleteFolder_ERROR:
MsgBox Err.Description
End Sub

Das Problem ist sobald ich das erste Makro ausführe, geht das zweite nicht mehr richtih, denn es löscht keine Unterordner mehr - die anderen Dateien in diesem Ordner schon.

Solltet ihr eine Beispielarbeitsmappe brauchen einfach bescheid sagen

Danke schonmal

Steffen

nach oben   nach unten

Re: Expertenfrage --> Dringend
von: Hans W. Herber
Geschrieben am: 20.05.2002 - 10:02:11

Hallo Steffen,

der VB bzw. VBScript-Aufruf funktioniert vermutlich deshalb nicht, weil Excel der Auffassung ist, dass der Ordner noch "in use" ist.

hans


nach oben   nach unten

Nochmal Hilfe
von: Steffen
Geschrieben am: 20.05.2002 - 11:11:05

Wie bekomm ich das hin, dass der Ordner dann nicht mehr in Use ist.

Leider kenn ich mich dann doch nicht so aus

Danke Dir schonmal

Steffen


nach oben   nach unten

Re: Nochmal Hilfe
von: Hans W. Herber
Geschrieben am: 20.05.2002 - 11:12:43

... tut mir leid, da kann ich Dir nicht weiterhelfen. Mein Gebiet ist Excel/VBA, hier geht es um VB/VBScript.

hans


nach oben   nach unten

Wer kann helfen,
von: Steffen
Geschrieben am: 20.05.2002 - 11:53:35

nur noch eine letzte Frage:

Wer kann mir diesbezuglich helfen?

Danke Dir


Steffen

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Überschrift folgen lassen"