Visual Basic - Ayuda con la creacion de carpetas

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda con la creacion de carpetas

Publicado por alan alanmta22@hotmail.com (2 intervenciones) el 31/01/2014 18:25:26
buenos dia estoy haciendo una aplicacion y en esta parte pido que me cree una carpeta y dentro de ella me cree otra carpeta con el nombre de la caja de cada respectivo archivo

primero poes es el ciclo despues la consulta en SQL que me extrae el numero de caja de la tabla captura de los archivos que estan en un List1.list
despues me lo guarda en la variable strcaja

al principio va todo bien me crea la caja y por ejemplo de archivo tal me crea la caja diez pero cuando es una caja diferente me dise que ya existe el archivo espero que me puedan ayudar saludo

For i = 0 To File1.ListCount - 1
Rst.Open " SELECT Caja " _
& " From Tbl_Captura " _
& " WHERE NFL = '" & List1.List(i) & "' " _
, cn, adOpenDynamic, adLockOptimistic
If Not Rst.EOF Then

StrCaja = Rst.Fields("Caja")
End If
Rst.Close

''''¿existe la carpeta?''''
If SysFile.FolderExists(Trim(Text2.Text) & Mid(Text1.Text, InStrRev(Trim(Text1.Text), "\"), Len(Text1.Text) - InStrRev(Trim(Text1.Text), "\" & StrCaja)) & "\Caja " & StrCaja) = False Then
SysFile.CreateFolder (Trim(Text2.Text) & Mid(Text1.Text, InStrRev(Trim(Text1.Text), "\"), Len(Text1.Text) - InStrRev(Trim(Text1.Text), "\" & "\Caja " & StrCaja)))
If SysFile.FolderExists(Trim(Text2.Text) & Mid(Text1.Text, InStrRev(Trim(Text1.Text), "\"), Len(Text1.Text) - InStrRev(Trim(Text1.Text), "\" & StrCaja)) & "\Caja " & StrCaja) = False Then
SysFile.CreateFolder (Trim(Text2.Text) & Mid(Text1.Text, InStrRev(Trim(Text1.Text), "\"), Len(Text1.Text) - InStrRev(Trim(Text1.Text), "\" & StrCaja)) & "\Caja " & StrCaja)
End If
End If
'Next
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ayuda con la creacion de carpetas

Publicado por Juan Gilberto (278 intervenciones) el 01/02/2014 20:08:26
Trata con el siguiente codigo... creo que te faltaba una parte en la linea del CreateFolder
1
2
If SysFile.FolderExists(Trim(Text2.Text) & Mid(Text1.Text, InStrRev(Trim(Text1.Text), "\"), Len(Text1.Text) - InStrRev(Trim(Text1.Text), "\" & StrCaja)) & "\Caja " & StrCaja) = False Then
SysFile.CreateFolder (Trim(Text2.Text) & Mid(Text1.Text, InStrRev(Trim(Text1.Text), "\"), Len(Text1.Text) - InStrRev(Trim(Text1.Text), "\" & StrCaja)) & "\Caja " & StrCaja)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda con la creacion de carpetas

Publicado por alan (2 intervenciones) el 05/02/2014 16:32:57
Muchas gracias fue de mucha ayuda mi error estaba el los end if heheheh saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar