bestandslocatie controleren

[harolda1980]

Ik zou willen controleren of een bepaalde bestandslocatie bestaat? Wat zijn hier de mogelijkheden voor.

bijv

\\Server1\afdeling\database\

Of deze verwijzing naar database aanwezig is.

 

[Karel 2]

Hoi Harolda,

kan je hier iets mee?

If Len(Dir$("C:\test.xls")) > 0 Then

Deze opdracht geeft de lengte van het aantal tekens van de bestandsnaam als hij bestaat.
Als hij niet bestaat is het aantal tekens dus 0

Groet Karel

 

[harolda1980]

Hier de oplossing hoe je kan zien of een directory bestaat en zo niet dan maakt hij hem aan!

Sub testnetworkdir()
Dim Directory_Location_MainTree As String
Dim Test_Dir_Exists As String
Directory_Location_MainTree = "E:\Autobes\Netlog"
'Toewijzen van locatie van de directory

Test_Dir_Exists = Dir(Directory_Location_MainTree, vbDirectory)
'Testen van de main directory

If (Test_Dir_Exists = "") Then MkDir (Directory_Location_MainTree)
'Aanmaken van de directory als hij niet bestaat

End Sub

 

[snb]

Vreemd: je begint je vraag over een netwerkdirectory en eindigt in de 'oplossing' met een lokale.

Veel simpeler:

Sub testnetworkdir()
  On Error Resume Next
  MkDir "\\Autobes\Netlog"
End Sub

 

[harolda1980]

Klopt thuis getest en pas hem nu toe op de server.

Ik neem die van jou ook mee.