Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  AutoCAD VBA
  Fehler mit findfolder

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Fehler mit findfolder (944 mal gelesen)
Heiko76
Mitglied
Applikationsingenieur


Sehen Sie sich das Profil von Heiko76 an!   Senden Sie eine Private Message an Heiko76  Schreiben Sie einen Gästebucheintrag für Heiko76

Beiträge: 589
Registriert: 21.03.2002

Win10 64bit
Autodesk Produkte 2018
VB.net / Powershell

erstellt am: 27. Apr. 2004 13:12    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo zusammen,

ich habe ein kleines Problem mit dem folgenden Code:

Dim fso As FileSystemObject
Dim Pfadtest2 As Boolean

    With fso
    Pfadtest2 = False
    Pfadtest2 = .FolderExists(Pfad)
    Filetest = .FileExists(Pfadkompl)
   
    End With

Wenn ich mir den Code in Einzelschritten betrachte, springt der Cursor nach der Zeile "Pfadtest2 = .FolderExists(Pfad)" wieder auf die Zeile With fso und durchläuft den ganzen Code von dort aus wieder neu. Er wird aber dann an der Zeile "Pfadtest2 = .FolderExists(Pfad)" abgebrochen mit folgender Fehlermeldung:

Laufzeitfehler '91':
Objektvariable oder With-Blockvariable nicht festgelegt

Was kann das sein????
Bitte helft mir, ich bin mitlerweile am verzweifeln!!!!

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

daywa1k3r
Ehrenmitglied V.I.P. h.c.
Softwareentwickler



Sehen Sie sich das Profil von daywa1k3r an!   Senden Sie eine Private Message an daywa1k3r  Schreiben Sie einen Gästebucheintrag für daywa1k3r

Beiträge: 3497
Registriert: 01.08.2002

erstellt am: 27. Apr. 2004 13:32    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Heiko76 10 Unities + Antwort hilfreich

Was soll dein Programm eigentlich machen ?

Die Variablen Pfad, Filetest und Pfadkompl sind richtig deklariert und sind nicht "leer" ? Wenn du ein Breakpoint gesetzt hast, das Programm laufen lässt, kannst du mit dem du mit der Maus über die Variable fährst, den Wert ablesen...

------------------
Grüße daywa1k3r

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

startrek
Moderator
Architekt


Sehen Sie sich das Profil von startrek an!   Senden Sie eine Private Message an startrek  Schreiben Sie einen Gästebucheintrag für startrek

Beiträge: 1361
Registriert: 13.02.2003

.

erstellt am: 27. Apr. 2004 13:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Heiko76 10 Unities + Antwort hilfreich

Hi auch,

ich verstehs auch nicht ganz, warum erst Pfadtest2=false? Anyway,
versuch's trotzdem mal mit:

Dim fso As New FileSystemObject

lg Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Heiko76
Mitglied
Applikationsingenieur


Sehen Sie sich das Profil von Heiko76 an!   Senden Sie eine Private Message an Heiko76  Schreiben Sie einen Gästebucheintrag für Heiko76

Beiträge: 589
Registriert: 21.03.2002

erstellt am: 27. Apr. 2004 14:09    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hi Nancy,

das hatte ich auch eingetragen. Ich habe es gelöst. Das Problem war, das ich ganz oben Private fso As New FileSystemObject stehen hatte und unten nochmals Dim fso As FileSystemObject. Das hat sich nicht so ganz miteinander verstanden. Ich habe das Dim fso As FileSystemObject rausgelöscht und jetzt funzt es.

@daywa1k3r
Ich wollte einfach nur überprüfen, ob der Pfad und / oder die Datei vorhanden sind.

Trotzdem Danke an Euch beiden für die schnelle "Hilfe".

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

daywa1k3r
Ehrenmitglied V.I.P. h.c.
Softwareentwickler



Sehen Sie sich das Profil von daywa1k3r an!   Senden Sie eine Private Message an daywa1k3r  Schreiben Sie einen Gästebucheintrag für daywa1k3r

Beiträge: 3497
Registriert: 01.08.2002

Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570
Laptop: Alienware m17x
Win7, Inventor2012

erstellt am: 27. Apr. 2004 14:23    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Heiko76 10 Unities + Antwort hilfreich

Naja, dann "MicrosoftScriptingRuntime" includen und der Code lautet:

Code:

Public Sub Test_fso()
   
    Dim fso As New FileSystemObject
    Dim sPfad As String
    Dim sFile As String
   
    sPfad = "C:\temp"
    sFile = "C:\temp\test.txt"
   
    MsgBox sPfad & " exist = " & fso.FolderExists(sPfad) & vbCrLf & sFile & " exist = " & fso.FileExists(sFile)
         
End Sub


HTHHope that helps = Hoffe es hilft

------------------
Grüße daywa1k3r

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz