CodePudding user response:
The upThe up
The up
CodePudding user response:
https://blog.csdn.net/dengdun6257/article/details/102283225CodePudding user response:
Put it simple, with a shell called FFmpeg:Private Declare Function GetShortPathName Lib "kernel32. DLL" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
'set the output file
Dim S As String
Dim Inputfile As String 'input file
Dim Outputfile As String output file
'Outputfile="D: \ Outputfile wav"
If Dir (Outputfile)="" Then 'file does not exist, create
FileNumber=FreeFile
The Open cjlT1 For Binary As # FileNumber
Put # FileNumber, CRH (0)
Close # FileNumber
End the If
S=String (LenB (Outputfile), CRH (0))
GetShortPathName Outputfile, S, Len (S)
Outputfile=left (S, InStr (S, CRH (0)) - 1)
'set the environment variable to support FFmpeg input file path
FileNumber=the SetEnvironmentVariable (" Path ", FFmpegPath) 'set up FFmpeg file Path where
S="ffmpeg - I" "" & amp; Inputfile & amp; "" "- f wav - acodec pcm_s16le - 1 - y "ac & amp; Outputfile
Call the Shell (S, vbHide)
CodePudding user response:
https://bbs.csdn.net/topics/425942CodePudding user response:
https://blog.csdn.net/imxiangzi/article/details/80265978