1ª duda
Hola alguien sabe en vb 6 como puedo cuando pulso un boton crear una carpeta en un directorio sino existe la carpeta , y que si existe no la cree ?
2ª duda
como puedo añadir una musica a un form sin que tenga que buscar el directorio donde estaq el archivo de musica, es decir, que forme parte del programa
para la primera duda esto :(lo he puesto para cuando se inicie el programa)
Private Sub Form_Load()
'Existencia de carpeta
If Dir("C:\Folder", vbDirectory) = vbNullString Then
'Crear carpeta
Call MkDir("C:\Folder")
End If
End Sub
Private Sub Form_Load()
'Existencia de carpeta
If Dir("C:\Folder", vbDirectory) = vbNullString Then
'Crear carpeta
Call MkDir("C:\Folder")
End If
End Sub
Nada temo, pues mantengo la verdad que es poderosa.
para la 1era pregunta: [Enlace externo eliminado para invitados]
para la 2da: [Enlace externo eliminado para invitados]
para la 2da: [Enlace externo eliminado para invitados]
en la segunda duda me refiero a no tener que poner el directorio de la cancion sino que al estar unida al programa suene sin tenr que buscar donde esta
PD: la primera ya esta resuelta ZOom
PD: la primera ya esta resuelta ZOom
para la segunda añade la cancion como recurso y escribe esto
Código: Seleccionar todo
' Constantes para los flags
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' look for application specific association
Private Const SND_APPLICATION = &H80
' name is a WIN.INI [sounds] entry
Private Const SND_ALIAS = &H10000
' name is a WIN.INI [sounds] entry identifier
Private Const SND_ALIAS_ID = &H110000
' play asynchronously
Private Const SND_ASYNC = &H1
' play synchronously (default)
Private Const SND_SYNC = &H0
' name is a file name
Private Const SND_FILENAME = &H20000
' loop the sound until next sndPlaySound
Private Const SND_LOOP = &H8
' lpszSoundName points to a memory file
Private Const SND_MEMORY = &H4
' silence not default, if sound not found
Private Const SND_NODEFAULT = &H2
' don't stop any currently playing sound
Private Const SND_NOSTOP = &H10
' don't wait if the driver is busy
Private Const SND_NOWAIT = &H2000
' purge non-static events for task
Private Const SND_PURGE = &H40
' name is a resource name or atom
Private Const SND_RESOURCE = &H40004
' Declaración del api PlaySound
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" ( _
ByVal lpszName As String, _
ByVal hModule As Long, _
ByVal dwFlags As Long) As Long
Sub Reproducir_WAV(Archivo As String, Flags As Long)
Dim ret As Long
' Le pasa el path y los flags al api
ret = PlaySound(Archivo, ByVal 0&, Flags)
End Sub
Private Sub Form_Load()
dim archivo () as byte
archivo = LoadResData(101, "CUSTOM")
Call Reproducir_WAV(archivo, SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT)
End Sub
Encontre este codigo de Metal_Kingdom que creo que es justo lo que buscas, si miras mas abajo del post encontraras el codigo para poder reproducirlo en el temp sin necesidad de crearlo en una carpeta
Link: [Enlace externo eliminado para invitados]
Link: [Enlace externo eliminado para invitados]
Nada temo, pues mantengo la verdad que es poderosa.
Gracias me sirvió
