Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten
Autor
Nachricht
DasBaUm
Newbie
Newbie

Anmeldedatum: 24.01.2010
Beiträge: 1
Nächst-Verfügbares Verzeichnis ermitteln
Verfasst am: 24.01.2010, 12:15
Hi Leute.
Mein Programm überwacht alle veränderungen innerhalb eines Verzeichnisses.
Nun möchte ich, dass eine Funktion das als nächstes Verfügbare Verzeichnis zurückgibt, falls der Benutzer das Überwachte verzeichnis löscht.

Also z.b.:
Das Überwachungsverzeichnis ist C:\\Sonstiges\Bilder\ChuckNorris\
und der User löscht jetzt den Ordner ChuckNorris.
Dann soll eine Funktion den nächst verfügbaren pfad zurückgeben.
In diesem Fall C:\\Sonstiges\Bilder

Bei der Funktion, die Ich geschrieben habe tritt jedoch in der WHILE-Schleife immer eine ArgumentOutOfRange Exception auf.
Wäre super nett, wenn jemand eine andere Möglichkeit finden würde

Benutze Visual Basic 2008 Express
Hier ist meine Funktion:

Code:

Function getaviabledir(ByVal proofpath As String)
        Dim aviabledir As String
        Dim diraviable As Boolean
        diraviable = False
        aviabledir = proofpath
        MsgBox(aviabledir)
        If (IO.Directory.Exists(aviabledir) = False) And aviabledir.Length = 4 Then
            aviabledir = FileIO.SpecialDirectories.ProgramFiles
            aviabledir = aviabledir.Remove(3, aviabledir.Length - 3) + "\"
        Else
            While diraviable = False
                If IO.Directory.Exists(aviabledir) = False Then
                    aviabledir = aviabledir.Remove(aviabledir.Length - 2, aviabledir.Length - 1)
                    aviabledir = aviabledir.Remove(aviabledir.LastIndexOf("\"), aviabledir.Length - 1) & "\"
                Else
                    diraviable = True
                End If
            End While
        End If
        Return aviabledir
End Function

_________________
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten

Tags: basic

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Problem mit always on top funktion 1039 30.10.2009, 11:26
Keine neuen Beiträge IntStr()funktion 1177 11.10.2007, 08:49
Keine neuen Beiträge TopMost Funktion unter DirectX 921 27.07.2007, 10:48
Keine neuen Beiträge Wie Funktion nutzen ? 1102 29.06.2007, 20:59
Keine neuen Beiträge update funktion einbauen 1341 28.01.2007, 23:11
 




[ Time: 0.1206s ][ Queries: 83 (0.0168s) ][ GZIP on - Debug on ]