formule werkt thuis wel ergens anders niet, Why??

[FrodoB]

Onderstaande formule werkt thuis wel, maar ergens anders waar ik de gegevens van een server moet halen en het datapad langer is niet. Why??

Private Sub TijdKnop()
If ClientKnop1.Visible = True Then
Dim Cap1 As Variant
Frame1d.Visible = True
Cap1 = Replace(ClientKnop1.Caption, " ", "")
TextBox1a.Text = Format(FileDateTime(DataPad & Cap1 & "\algemene.txt"))
TextBox1m.Text = Format(FileDateTime(DataPad & Cap1 & "\medisch.txt"))
Else: Frame1d.Visible = False

End If

etc.

Private Sub Begin()
Tijdknop

 

[richard1970]

Beste FrodoB,

Er zit een maximumlengte aan het pad wat Office aankan. Is het pad langer dan 240 karakters?
Ik heb het ergens een keer uitgeschreven in één van de vragen die ik zelf gestart heb.

Kan het met de taal te maken hebben omdat je op twee verschillende systemen werkt?

Richard

 

[FrodoB]

het datapad is bij lange na niet zo lag. Het vreemde is dat hij wel de .txt bestanden uit dit datapad leest maar de data dus niet

 

[Cranky]

Staat de macrobeveiliging uit?

 

[FrodoB]

Ja de macrobeveiliging staat uit, maakt dat verschil dan?

 

[trucker10]

En als je in de VB editor de code afloopt met F8 ? stop hij dan op Frame1d ?