comprobar si existe un fichero en varias carpetas
Publicado por Didac (27 intervenciones) el 18/10/2018 15:45:12
Hola a todos;
A ver si alguno de vosotros me puede ayudar, por que llevo dias intentando encontrar una solución al problema pero no doy con ella.
Me gustaría poder controlar un fichero si existe en varias carpetas, como veis en el código, le paso el nombre de fichero a la variable pedido, Y despues lo marco para que el IF funcione, siempre funciona, pero despues me siguen saliendo los mensajes de las otras carpetas que no existe.
Lo que quisiera conseguir es que compruebe si el fichero que le paso por la variable pedidos, me lo busque en todas las rutas y si no esta que se muestre un mensaje, y si esta que se muestre otro mensaje
Alguien me puede ayudar por favor
A ver si alguno de vosotros me puede ayudar, por que llevo dias intentando encontrar una solución al problema pero no doy con ella.
Me gustaría poder controlar un fichero si existe en varias carpetas, como veis en el código, le paso el nombre de fichero a la variable pedido, Y despues lo marco para que el IF funcione, siempre funciona, pero despues me siguen saliendo los mensajes de las otras carpetas que no existe.
Lo que quisiera conseguir es que compruebe si el fichero que le paso por la variable pedidos, me lo busque en todas las rutas y si no esta que se muestre un mensaje, y si esta que se muestre otro mensaje
Alguien me puede ayudar por favor
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Function moverfichero2()
Dim familia As String
Dim pedido As String
Dim control As String
Dim BT As String
'Dim BTC As String
Dim RT As String
Dim VPT As String
Dim MAC As String
Dim RS As String
Dim SEEFREE As String
familia = Me.Texto163
pedido = Me.BF
control = 0RS = Dir("\\serverproduccio\Factory\S\DAT\Final\" & pedido & ".dat")
BT = Dir("\\serverproduccio\Factory\BT\DAT\Final\" & pedido & ".dat")
RT = Dir("\\serverproduccio\Factory\RT\DAT\Final\" & pedido & ".dat")
VPT = Dir("\\serverproduccio\Factory\VPT\DAT\Final\" & pedido & ".dat")
MAC = Dir("\\serverproduccio\Factory\MAC\DAT\Final\" & pedido & ".dat")
SEEFREE = Dir("\\serverproduccio\Factory\SEEFREE\DAT\Final\" & pedido & ".dat")
If RS = "" Then control = 1 Else control = 0
If BT = "" Then control = 1 Else control = 0
If RT = "" Then control = 1 Else control = 0
If VPT = "" Then control = 1 Else control = 0
If MAC = "" Then control = 1 Else control = 0
If SEEFREE = "" Then control = 1 Else control = 0
If RS = "" And control = 1 Then MsgBox "RS EL FICHERO NO ESTA EN LA CARPETA FINAL", vbExclamation
If BT = "" And control = 1 Then MsgBox "BT EL FICHERO NO ESTA EN LA CARPETA FINAL", vbExclamation
If RT = "" And control = 1 Then MsgBox "RT EL FICHERO NO ESTA EN LA CARPETA FINAL", vbExclamation
If VPT = "" And control = 1 Then MsgBox "VPT EL FICHERO NO ESTA EN LA CARPETA FINAL", vbExclamation
If MAC = "" And control = 1 Then MsgBox "MAC EL FICHERO NO ESTA EN LA CARPETA FINAL", vbExclamation
If SEEFREE = "" And control = 1 Then MsgBox "SEEFREE EL FICHERO NO ESTA EN LA CARPETA FINAL", vbExclamation
End Function
Valora esta pregunta
0