Verzeichnis erstellen in VBA
14.11.2002 07:46:55
Sascha
Zur kurzen Erklärung:
Der Code der unten aufgeführt ist soll in einen Verzeichnis(Pfadmon) nach einer *igs.xls Datei suchen. Wenn sie nicht vorhanden ist soll ein Verzeichnis erstellt werden. Aber vor der Verzeichniserstellung sollte noch geprüft werden ob das verzeichnis schon exsitiert. den wenn es schon vorhanden ist, kommt es zum Fehler.
Ich benötige also nur eine Verzeichnisabfrage, doch ich weiß absolut nicht wie ich das hin bekommen soll.
With Application.FileSearch 'Dateisuche
.NewSearch
.LookIn = Pfadmon
.SearchSubFolders = False
.FileName = temp + "igs"
.MatchAllWordForms = False
.FileType = msoFileTypeExcelWorkbooks
If .Execute() > 0 Then
Workbooks.Open FileName:=Pfadmon + temp + "igs.xls" 'Dateien öffnen
Else
MkDir Pfadmon 'Verzeichnis erstellen
Workbooks.Add.SaveAs FileName:=Pfadmon + temp + "igs.xls" 'Dateien Erstellen im neuen Verzeichnis
End If
End With
Würde mich freuen wenn mir jemand helfen kann.
Anzeige