Progress Bar

Kun den windows bruger når du kopier filer eller flytter filer??

Ja...

Skal lige finde den :-)

Jeg har kikket i PSC(planet-source-code) hvis det var det du tænkte på ...  ;0)

Nej jeg har den her:


\'-------------------------------- Module1 --------------------------------
Public Declare Function SHFileOperation Lib _
\"shell32.dll\" Alias \"SHFileOperationA\" _
(lpFileOp As Any) As Long

Public Declare Sub SHFreeNameMappings Lib _
\"shell32.dll\" (ByVal hNameMappings As Long)

Public Declare Sub CopyMemory Lib \"KERNEL32\" _
Alias \"RtlMoveMemory\" (hpvDest As Any, hpvSource _
As Any, ByVal cbCopy As Long)

Public Type SHFILEOPSTRUCT
hwnd As Long
wFunc As FO_Functions
pFrom As String
pTo As String
fFlags As FOF_Flags
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String
End Type

Public Enum FO_Functions
FO_MOVE = &H1
FO_COPY = &H2
FO_DELETE = &H3
FO_RENAME = &H4
End Enum

Public Enum FOF_Flags
FOF_MULTIDESTFILES = &H1
FOF_CONFIRMMOUSE = &H2
FOF_SILENT = &H4
FOF_RENAMEONCOLLISION = &H8
FOF_NOCONFIRMATION = &H10
FOF_WANTMAPPINGHANDLE = &H20
FOF_ALLOWUNDO = &H40
FOF_FILESONLY = &H80
FOF_SIMPLEPROGRESS = &H100
FOF_NOCONFIRMMKDIR = &H200
FOF_NOERRORUI = &H400
FOF_NOCOPYSECURITYATTRIBS = &H800
FOF_NORECURSION = &H1000
FOF_NO_CONNECTED_ELEMENTS = &H2000
FOF_WANTNUKEWARNING = &H4000
End Enum

Public Type SHNAMEMAPPING
pszOldPath As String
pszNewPath As String
cchOldPath As Long
cchNewPath As Long
End Type

Public Function SHFileOP(ByRef lpFileOp As SHFILEOPSTRUCT) As Long
Dim result As Long
Dim lenFileop As Long
Dim foBuf() As Byte

lenFileop = LenB(lpFileOp)
ReDim foBuf(1 To lenFileop)

Call CopyMemory(foBuf(1), lpFileOp, lenFileop)

Call CopyMemory(foBuf(19), foBuf(21), 12)
result = SHFileOperation(foBuf(1))

SHFileOP = result
End Function


Public Function sCopy(sFile1, sFile2) \'Kopier filer eller mapper
Dim lret As Long
Dim fileop As SHFILEOPSTRUCT

With fileop
.hwnd = 0
.wFunc = FO_COPY
.pFrom = sFile1
.pTo = sFile2

.lpszProgressTitle = \"Fra: \" & sFile1 & \" Til: \" & sFile2

.fFlags = FOF_SIMPLEPROGRESS Or FOF_RENAMEONCOLLISION
End With

lret = SHFileOP(fileop)

If result <> 0 Then
MsgBox Err.LastDllError
Else
If fileop.fAnyOperationsAborted <> 0 Then
MsgBox \"Operation Failed\"
End If
End If
End Function

Public Function sDelete(sFile) \'Slette filer eller mapper
Dim lret As Long
Dim fileop As SHFILEOPSTRUCT

With fileop
.hwnd = 0
.wFunc = FO_DELETE
.pFrom = sFile
.lpszProgressTitle = sFile1
.fFlags = FOF_SIMPLEPROGRESS Or FOF_ALLOWUNDO
End With

lret = SHFileOP(fileop)

If result <> 0 Then
MsgBox Err.LastDllError
Else
If fileop.fAnyOperationsAborted <> 0 Then
MsgBox \"Operation Failed\"
End If
End If
End Function

Public Function sRename(sFile1, sFile2) \'Omdøbe filer eller mapper
Dim lret As Long
Dim fileop As SHFILEOPSTRUCT

With fileop
.hwnd = 0
.wFunc = FO_RENAME
.pFrom = sFile1
.pTo = sFile2
.lpszProgressTitle = \"Fra: \" & sFile1 & \" Til: \" & sFile2
.fFlags = FOF_SIMPLEPROGRESS Or FOF_ALLOWUNDO
End With

lret = SHFileOP(fileop)

If result <> 0 Then
MsgBox Err.LastDllError
Else
If fileop.fAnyOperationsAborted <> 0 Then
MsgBox \"Operation Failed\"
End If
End If
End Function

Public Function sMove(sFile1, sFile2) \'Flytte filer eller mapper
Dim lret As Long
Dim fileop As SHFILEOPSTRUCT

With fileop
.hwnd = 0
.wFunc = FO_MOVE
.pFrom = sFile1
.pTo = sFile2
.lpszProgressTitle = \"Fra: \" & sFile1 & \" Til: \" & sFile2
.fFlags = FOF_SIMPLEPROGRESS Or FOF_ALLOWUNDO
End With

lret = SHFileOP(fileop)

If result <> 0 Then
MsgBox Err.LastDllError
Else
If fileop.fAnyOperationsAborted <> 0 Then
MsgBox \"Operation Failed\"
End If
End If
End Function
\'-------------------------------- Module1 --------------------------------


\'--------------------------------- Form1 ---------------------------------

Private Sub Command1_Click()
\'sMove \"C:\\Temp\\TestFile.txt\", \"C:\\\"
sMove \"C:\\TestMappe\", \"C:\\Temp\"
End Sub

Private Sub Command3_Click()
\'sCopy \"D:\\TestFile.txt\", \"C:\\\"
sCopy \"C:\\TestMappe\", \"C:\\Temp\"
End Sub

Private Sub Command4_Click()
\'sDelete \"C:\\TestFile.txt\"
sDelete \"C:\\TestMappe\"
End Sub

Private Sub Command5_Click()
\'sRename \"C:\\Ejay_se.zip\", \"C:\\Ejay_se.zip_\"
sRename \"C:\\TestMappe\", \"C:\\TestMappe2\"
End Sub

\'-------------------------- hvis du skal kopier flere filer --------------------------
\'sCopy \"D:\\ser.htm\" & vbNullChar & \"D:\\test.htm\", \"C:\\\"
\'-------------------------- hvis du skal kopier flere filer --------------------------

\'--------------------------------- Form1 ---------------------------------

Jeg haved tænke mig at lave et program som skulle kopiere en hel CD ind på H-disk...

Kan man ikke bruge *.* ????

Eller hvordan gør man så....??

Jeg kan godt skrue point op til 60 hvis det passer bedere til spørsmålet...

Brug den sådan F:\\ er din CD-ROM
sCopy \"F:\\*.*\", \"C:\\Temp\\Test\"

Prøver på liv og løs....

Hvad skal min Bar hedde ???

(Hvad skal min Bar hedde) hvad mener du????????

min progress bar ....

Når man sætter den ind på formen hedder den

Navn :  ProgressBar1

du skal ikke bruge nogle ProgressBar1
windows har selv en.
som jeg skræv: Kun den windows bruger når du kopier filer eller flytter filer

Nååå så det var derfor du spurte sådan

Jeg var helt sikker på at man selv skulle komme en ind.......der følger jo en med i VB og det var den som jeg troede du ville bruge....

Den bruger du jo ikke når du kopier filer eller flytter filer.

Den kode har jeg ikke :-)

så kan du godt skrue point op til 250 eller mere. ;)

Din virker...;0)

Venter lige og ser om andre kan den anden metode....

Jeg kan jo lige hæve og dele ud så du for dine 30 point...for det ser da meget godt ud det du har lavet....;0)...

Mange Tak..

nu i snakker om progress bars, jeg kan ikke finde mit ikon for progress baren, sltså jeg ANER ikke hvordan jeg \"adder\" en progress bar til min form.

Ved i hvor jeg kan finde den/enable den??