Newsgroup: it.comp.lang.visual-basic
Titolo: mkdir

ciao a tutti...ho voluto creare un pacchetto d'installazione per il mio
programma...e fin qui tutto bene...
Quando vado ad installarlo su un pc diverso dal mio iniziano i problemi...ma
non quelli soliti di mancanza di librerie etc...
Nel form load del mio prog ho queste linee di codice :
code:
----------------------------------------------------------------------------
-----------------------------
   If Not IsDirExist(App.Path & "\db") Then
       MkDir App.Path & "\db"
       Dim fs As New FileSystemObject
       fs.MoveFile App.Path & "\miodb.mdb", App.Path & "\db\miodb.mdb"
       Set fs = Nothing
    End If
 If Not IsDirExist(App.Path & "\report") Then
       MkDir App.Path & "\report"
    End If
...
...
...
end sub
   'funzione che richiamo per vedere se esiste quella directory
Public Function IsDirExist(ByVal strPathName As String) As Boolean
    Dim fs As New scripting.FileSystemObject
    IsDirExist = fs.FolderExists(strPathName)
    Set fs = Nothing
End Function
----------------------------------------------------------------------------
--------------------------------
Beh in pratica quando si esegue il programma per la prima volta,si creano
due cartelle "DB" e "REPORT" e nella cartella DB sposto il file
miodb.mdb,mentre la cartella report servira per salvare poi i report che
l'utente si vuol creare!
Il fatto è che queste due cartelle non vengono create se il pacchetto
d'installazione viene eseguito su di un pc diverso dal mio...
PERCHE'? forse mkdir sfrutta qualche file da includere manualmente?mi sembra
strano pero' che vb...non lo aggiunge da solo...
Mi date una mano !?
ciao michele

 strano pero' che vb...non lo aggiunge da solo...
Il pacchetto di installazione l'hai creato con VB?
Hai eventualmente tolto qualche elemento (per esempio la DLL o l'OCX che
include il FileSystemObject)? Pubblica il contenuto di Setup.LST.
Ricevi errori quando esegui le istruzioni per la creazione delle cartelle?
Se sě, quali?
La cartella di installazione dell'EXE č in una struttura diversa da qualla
della macchina di sviluppo (vedi App.Path)?

 della macchina di sviluppo (vedi App.Path)?
no no è la stessa

[Bootstrap]
SetupTitle=Installa
SetupText=Copia dei file in corso. Attendere.
CabFile=Progetto1.CAB
Spawn=Setup1.exe
Uninstal=st6unst.exe
TmpDir=msftqws.pdw
Cabs=1
[Bootstrap Files]
File1=@VB6STKIT.DLL,$(WinSysPathSysFile),,,7/15/00 12:00:00
AM,101888,6.0.84.50
File2=@COMCAT.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,6/1/98 12:00:00
AM,22288,4.71.1460.1
File3=@VB6IT.DLL,$(WinSysPath),,$(Shared),10/2/00 12:00:00
AM,122128,6.0.89.88
File4=@STDOLE2.TLB,$(WinSysPathSysFile),$(TLBRegister),,6/3/99 12:00:00
AM,17920,2.40.4275.1
File5=@ASYCFILT.DLL,$(WinSysPathSysFile),,,3/8/99 12:00:00
AM,147728,2.40.4275.1
File6=@OLEPRO32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,3/8/99 12:00:00
AM,164112,5.0.4275.1
File7=@OLEAUT32.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,4/12/00
12:00:00 AM,598288,2.40.4275.1
File8=@MSVBVM60.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,8/21/00
12:00:00 AM,1388544,6.0.89.64
[IconGroups]
Group0=Progetto1
PrivateGroup0=0
Parent0=$(Programs)
[Progetto1]
Icon1="Progetto1.exe"
Title1=Progetto1
StartIn1=$(AppPath)
[Setup]
Title=Reg manager v1.0 beta
DefaultDir=$(ProgramFiles)\Progetto1
AppExe=Progetto1.exe
AppToUninstall=Progetto1.exe
[Setup1 Files]
File1=@db2.mdb,$(AppPath),,,5/9/03 3:23:50 PM,274432,0.0.0.0
File2=@Impostazioni.ini,$(AppPath),,,5/9/03 7:09:16 PM,67,0.0.0.0
File3=@MDAC_TYP.EXE,$(AppPath),,,2/28/00 12:00:00 AM,7872168,25.0.4403.12
File4=@CMDLGIT.DLL,$(WinSysPath),,$(Shared),8/5/98 12:00:00
AM,33792,6.0.81.63
File5=@COMDLG32.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/22/00
12:00:00 AM,140488,6.0.84.18
File6=@MSCC2IT.DLL,$(WinSysPath),,$(Shared),8/5/98 12:00:00
AM,63488,6.0.81.63
File7=@MSCOMCT2.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/22/00
12:00:00 AM,647872,6.0.88.4
File8=@MSCMCIT.DLL,$(WinSysPath),,$(Shared),8/5/98 12:00:00
AM,150528,6.0.81.63
File9=@MSCOMCTL.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/22/00
12:00:00 AM,1066176,6.0.88.62
File10=@FLXGDIT.DLL,$(WinSysPath),,$(Shared),8/5/98 12:00:00 AM,43520,6.0.81
.63
File11=@MSFLXGRD.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/22/00
12:00:00 AM,244416,6.0.84.18
File12=@SCRRNIT.DLL,$(WinSysPath),,$(Shared),3/4/03 9:19:42
PM,24626,5.6.0.6626
File13=@MSVCRT.DLL,$(WinSysPathSysFile),,,1/22/00 8:35:02
AM,266293,6.0.8397.0
File14=@SCRRUN.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),3/4/03 9:19:42
PM,151601,5.6.0.6626
File15=@Gif89.dll,$(WinSysPath),$(DLLSelfRegister),$(Shared),6/13/98
10:53:26 PM,44544,1.0.0.1
File16=@MSDATOBJ.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),8/5/98
12:00:00 AM,700416,6.0.0.8169
File17=@STDFTIT.DLL,$(WinSysPath),,$(Shared),8/5/98 12:00:00
AM,6656,6.0.81.63
File18=@MSSTDFMT.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),7/15/00
12:00:00 AM,118784,6.0.88.4
File19=@MSBIND.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),7/15/00
12:00:00 AM,77824,6.0.88.62
File20=@ODBCTOOL.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),6/18/98
12:00:00 AM,32768,6.0.0.8169
File21=@Progetto1.exe,$(AppPath),,,5/9/03 6:56:22 PM,184320,1.0.0.0

*Michele* ha scritto:
...
Se non ti segnala errori durante il Setup, quanto scrivo non dovrebbe
valere, comunque non dovrebbe creare situazioni errate:
Togli dal Setup (ti basta togliere la spunta quando componi il pacchetto):
MDAC_TYP.EXE (Mettilo invece su un CD e installalo _prima_ del tuo Setup)
Assicurandoti di avere IE installato sulla macchina ricevente, togli anche:
MSVCRT.DLL
Il fatto che MkDir non ti crei le cartelle sotto XP mi fa tanto pensare,
prima che ai permessi (in ogni caso, quando installi lo fai come
amministratore?), a quel App.Path. Metti quindi un MsgBox, magari
condizionato, per vedere cosa rende App.Path (nell'EXE installato ed
eseguito) e vedi anche qui:
http://makeashorterlink.com/?N69625484
http://makeashorterlink.com/?H1B622484
http://makeashorterlink.com/?P5D613484
e, più genericamente:
http://makeashorterlink.com/?H3E622484