| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | PNY: der unverzichtbare Partner für umfassende KI-Lösungen von Workstations bis zu Edge Computing und KI-Cluster-Bereitstellung, eine Pressemitteilung
|
|
Autor
|
Thema: Fehler mit findfolder (1020 mal gelesen)
|
Heiko76
Mitglied
Applikationsingenieur
   Beiträge: 589
Registriert: 21.03.2002 Win10 64bit
Autodesk Produkte 2018
VB.net / Powershell
|
erstellt am: 27. Apr. 2004 13:12  <-- editieren / zitieren -->   Unities abgeben:          
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
Beiträge: 3497
Registriert: 01.08.2002
|
erstellt am: 27. Apr. 2004 13:32 <-- editieren / zitieren --> Unities abgeben: Nur für Heiko76 
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
   
Beiträge: 1361
Registriert: 13.02.2003 .
|
erstellt am: 27. Apr. 2004 13:52 <-- editieren / zitieren --> Unities abgeben: Nur für Heiko76
|
Heiko76
Mitglied
Applikationsingenieur
Beiträge: 589
Registriert: 21.03.2002
|
erstellt am: 27. Apr. 2004 14:09 <-- editieren / zitieren --> Unities abgeben:
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 |
| | Anzeige: | Infos zum Werbeplatz >> | isuCAD CAD APP für Tiefbau, Umwelt Since 1985, AnkiSOFT Software developes software to design infrastructure projects.
isuCAD has been developed for Water Supply Network Design. It is for Drawing / Modelling / Planning / Design / Analyze / Simulation the water supply network.
The software works under AutoCAD or ZWCAD.
|
|
daywa1k3r
Ehrenmitglied V.I.P. h.c.
Softwareentwickler
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 / zitieren --> Unities abgeben: Nur für Heiko76
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
HTH ------------------
Grüße daywa1k3r Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de
| 
